| Frage: Wie erhalte ich eine Auflistung aller Dateien eines Verzeichnisses? |
Um eine Auflistung aller Dateien eines Verzeichnisses zu erhalten, müssen Sie lediglich
ein Folder-Objekt des FSO erzeugen und dessen Files-Auflistung abfragen. Nachfolgend
sehen Sie ein Beispiel, dass alle Dateien des Verzeichnisses "download", dass unterhalb
des aktuellen Verzeichnisses liegt, auflistet.
[listfolder.asp]
<%
' --- Hier erfolgt die Zuweisung des auszulesenden Verzeichnisses
InputPath = Server.MapPath("./") & "\download\"
' --- Hier erfolgt der Aufruf der Funktion ListFolder, die für die
' --- Ausgabe der Dateien zuständig ist
Call ListFolder(InputPath)
' -----------------------------------------------------------------------------
Private Sub ListFolder(f_path)
' --- Erzeugen eines FSO-Objekts
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
' --- Erzeugen eines Folder-Objekts
Set objFolder = objFileSys.GetFolder(f_path)
' --- Erzeugen einer Files-Auflistung
Set objFiles = objFolder.Files
' --- Der Name jeder Datei in diesem Verzeichnis wird jetzt ausgegeben
For Each File in objFiles
Response.Write "<a href=""" & File.Name & """>" & File.Name & "</a><br>" & vbCrLf
Next
' --- Zerstören der Files-Auflistung
Set objFiles = Nothing
' --- Zerstören des Folder-Objekts
Set objFolder = Nothing
' --- Zerstören des FSO-Objekts
Set objFileSys = Nothing
End Sub
' -----------------------------------------------------------------------------
%>
|
 |
|