| Frage: Wie kann ich ermitteln, wieviele Dateien und Unterverzeichnisse ein Verzeichnis enthält? |
Ab und zu besteht die Anforderung, die Anzahl der Dateien in einem bestimmten Verzeichnis
zu ermitteln. Die sonst vorgeschlagene Methode, alle Dateien durchzugehen und einen Zähler
mitlaufen zu lassen, ist insbesondere bei grossen Verzeichnisses nicht sehr performant.
Daher wird in diesem Beispiel die Count-Eigenschaft der Files-Auflistung verwendet.
[countfiles.asp]
<%
' --- Zuweisen der Pfadangabe
Dim f_path
f_path = Server.MapPath("./")
' --- Erstellen eines FSO-Objekts
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
' --- Erstellen des Folder-Objekts für den angegeben Pfad
Set objFolder = objFileSys.GetFolder(f_path)
' --- Erstellen der Files-Auflistung des Verzeichnisses
Set objFiles = objFolder.Files
' --- Ausgabe der Anzahl der Dateien
Response.Write "Anzahl Dateien: " & objFiles.Count & "<br>"
' --- Zerstören der Files-Auflistung
Set objFiles = Nothing
' --- Erstellen der SubFolders-Auflistung des Verzeichnisses
Set objSubFolders = objFolder.SubFolders
' --- Ausgabe der Anzahl der Unterverzeichnisse
Response.Write "Anzahl Unterverzeichnisse: " & objSubFolders.Count & "<br>"
' --- Zerstören der SubFolders-Auflistung
Set objSubFolders = Nothing
' --- Zerstören des Folder-Objekts
Set objFolder = Nothing
' --- Zerstören des FSO-Objekts
Set objFileSys = Nothing
%> |
 |
|