Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

Imports System.IO

Partial Class VerySecretPageName
    Inherits MyBasePage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        <knip>

        Const IMAGE_DIRECTORY As String = "FrontDoorImages/"
        Const maxWidth As Integer = 200
        Const maxHeight As Integer = 200
        Const MaxDisplay As Integer = 100

        Dim pics As ArrayList = New ArrayList()
        Dim s As String, html As String
        Dim files() As String
        Dim cntDisplay, imgHeight, imgWidth As Integer

        cntDisplay = 0
        files = System.IO.Directory.GetFiles(Server.MapPath(IMAGE_DIRECTORY), "*.jpg")
        Array.Sort(files)
        Array.Reverse(files)  ''newest first

        For Each s In files

            'Get information about the image
            Dim currentImage As System.Drawing.Image = System.Drawing.Image.FromFile(s)

            .....