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
' -----------------------------------------------------------------------------
%>
|
 |
|