Random Image From a Folder

This script is a sub routine that will select a random image from a folder then display it to the screen. It is the same script that is used on the home page of this web site.

This script is written so that if you have a top folder named PhotoGallery and it contains multiple folders that contain your images, it will select a random folder and a random image from that folder.

Here is the ASP code for this script:

Sub RandomImage()

Randomize Timer

ImgCt = 0

FldrCt = 0

Dim FldrArr()

Dim ImgArr()

PhotoFolder = Server.MapPath("PhotoGallery")

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Set TopFldr = FSO.GetFolder(PhotoFolder)

For each Fldr in TopFldr.SubFolders

ReDim Preserve FldrArr(FldrCt)

FldrArr(FldrCt) = Fldr.Name

FldrCt = FldrCt + 1

RndFldrNum = Int(FldrCt * Rnd)

RndFldr = FldrArr(RndFldrNum)

Set TopFldr = Nothing

PhotoFolder = Server.MapPath("PhotoGallery/" & FldrArr(RndFldrNum))

Set ImgFldr = FSO.GetFolder(PhotoFolder)

For Each FileName in ImgFldr.Files

If Right(LCase(FileName),3) = "jpg" Then

ReDim Preserve ImgArr(ImgCt)

ImgArr(ImgCt) = FileName.Name

ImgCt = ImgCt + 1

End If

Set ImgFldr = Nothing

Set FSO = Nothing

If ImgCt = 0 Then

RandomImage()

Else

RndImgNum = Int(ImgCt * Rnd)

RndImg = ImgArr(RndImgNum)

Response.Write "<br/><center><img src=" & chr(34) & "PhotoGallery/" & RndFldr & "/" & RndImg & chr(34) & " style=" & chr(34) & "width:500px;" & chr(34) & "></center><br/>"

End If

End Sub

RandomImage()