<% ' Funkce pro načtení seznamu obrázků z adresáře Function GetImagesFromFolder(folderPath) Dim fs, folder, file, fileList Set fs = Server.CreateObject("Scripting.FileSystemObject") If fs.FolderExists(Server.MapPath(folderPath)) Then Set folder = fs.GetFolder(Server.MapPath(folderPath)) fileList = "" For Each file In folder.Files If LCase(Right(file.Name, 4)) = ".jpg" Or LCase(Right(file.Name, 4)) = ".png" Then fileList = fileList & file.Name & "," End If Next If fileList <> "" Then GetImagesFromFolder = Split(Left(fileList, Len(fileList) - 1), ",") Else GetImagesFromFolder = Array() End If Else GetImagesFromFolder = Array() End If End Function ' Načtení obrázků z adresáře img/krby Dim images images = GetImagesFromFolder("img/krby") If IsArray(images) And UBound(images) >= 0 Then For i = 0 To UBound(images) Response.Write "" Response.Write "" Response.Write "" Next Else Response.Write "

Žádné obrázky nebyly nalezeny.

" End If %>