|
![](images/pixel_t.gif) |
![Active Server Pages-FAQ](images/scl_headline_top.gif) |
![](images/trenner_t.gif)
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
' -----------------------------------------------------------------------------
%>
|
|
![](images/pixel_t.gif) |
![Stefan Falz Webconsulting](images/sfw_copyright.gif) |
|
|