Kategorie: Dateizugriff
Frage: Wie erhalte ich eine Auflistung aller Unterverzeichnisse eines Ordners?
Um eine Auflistung aller Dateien eines Verzeichnisses zu erhalten, müssen Sie lediglich
ein Folder-Objekt des FSO erzeugen und dessen SubFolders-Auflistung abfragen.
Nachfolgend sehen Sie ein Beispiel, dass alle Unterordner des Verzeichnisses "download"
(welches wiederum unterhalb des aktuellen Verzeichnisses liegt) auflistet.

[listsubfolders.asp]
<%
' --- Hier erfolgt die Zuweisung des auszulesenden Verzeichnisses
InputPath = Server.MapPath("./") & "\download\"

' --- Hier erfolgt der Aufruf der Funktion ListSubFolders, die für die
' --- Ausgabe der Unterverzeichnisse zuständig ist
Call ListSubFolders( InputPath )

' -----------------------------------------------------------------------------
Private Sub ListSubFolders( f_path )

' --- Erzeugen eines FSO-Objekts
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")

    ' --- Erzeugen eines Folder-Objekts
    Set objFolder = objFileSys.GetFolder(f_path)

        ' --- Erzeugen einer SubFolders-Auflistung
        Set objSubFolders = objFolder.SubFolders

            ' --- Der Name jeder Ordners in diesem Verzeichnis wird jetzt ausgegeben
            For Each Folder in objSubFolders
                Response.Write "<a href=""" & Folder.Name & """>" & Folder.Name & "</a><br>" & vbCrLf
            Next

        ' --- Zerstören der SubFolders-Auflistung
        Set objSubFolders = Nothing

    ' --- Zerstören des Folder-Objekts
    Set objFolder = Nothing

' --- Zerstören des FSO-Objekts
Set objFileSys = Nothing

End Sub
' -----------------------------------------------------------------------------
%>

Copyright 2000 - 2024 by Stefan Falz Webconsulting