http://fotograf.thinsz.se/photos <% Set objFSO = CreateObject("Scripting.FileSystemObject") objStartFolder = Request.ServerVariables("APPL_PHYSICAL_PATH") & "Photos" 'Set objFolder = objFSO.GetFolder(objStartFolder) 'Response.Write(objFolder.Path & "
") 'Set colFiles = objFolder.Files 'For Each objFile in colFiles ' Response.Write(objFile.Name & "
") 'Next 'Response.Write("
") ShowSubfolders objFSO.GetFolder(objStartFolder) Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders 'Response.Write(Subfolder.Path & "
") Set objFolder = objFSO.GetFolder(Subfolder.Path) If Right(LCase(objFolder.Name), 6) = "slides" Then Response.Write("" & vbCrLf) Set colFiles = objFolder.Files For Each objFile in colFiles If Right(LCase(objFile.Name), 3) = "jpg" Or Right(LCase(objFile.Name), 3) = "gif" Or Right(LCase(objFile.Name), 3) = "png" Then 'Response.Write(objFile.Name & "
") Response.Write(" " & vbCrLf) 'Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" http://fotograf.thinsz.se/" & Replace(Replace(Subfolder.Path, "D:\www\tadmin4522\web30127\fotograf.thinsz.se\html\", ""), "\", "/") & "/" & objFile.Name & "" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) End If Next 'Response.Write("
") End If ShowSubFolders Subfolder Next End Sub %>