<% Dim objFSO Dim objFile Dim objSubfolder Dim objFolder Dim strArchivVerzeichnis Dim strZeile strArchivVerzeichnis="D:\wwwsites\www.christine-streich.de\Bildergalerien" ' Response.Write(strArchivVerzeichnis) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Response.Write("Create FileSystemObject") If objFSO.FolderExists(strArchivVerzeichnis) Then Set objFolder = objFSO.getFolder(strArchivVerzeichnis) If objFolder.Subfolders.Count > 0 Then ' Response.Write("Verzeichnisse: " & objFolder.Subfolders.Count) For Each objSubfolder In objFolder.Subfolders ' Response.Write(objSubfolder.name) strZeile="" +_ "" +_ "" + cr Response.Write(strZeile) Next Else strZeile="" +_ "" +_ "" +_ "" +_ "" + cr Response.Write(strZeile) End If Else strZeile="" +_ "" +_ "" +_ "" +_ "" + cr Response.Write(strZeile) End If Set objFSO=Nothing %> Dateiname " & objSubfolder.name & "   Keine Archivdaten vorhanden     Archivverzeichnis: " & strArchivVerzeichnis & " nicht vorhanden