Kategorien:
Suchbegriffe:
Suchfelder:
Suche starten
Neue Beiträge / Top 7
Alle Artikel / Liste
Bücher zu ASP/ASP.Net
Startseite / Hilfe
Fragen zu ASP/ASP.NET
Datenschutzrichtlinen
Impressum / Kontakt
Das ASP.Net Codebook. Die unentbehrliche Referenz für alle ASP.Net-Entwickler [Autoren: Stefan Falz, Karsten Samaschke]
Active Server Pages-FAQ
Active Server Pages - FAQ (v. 1.50) © 2000 - 2020 by Stefan Falz Webconsulting

GetFile! Dynamischer Dateiupload im Browser

Dateizugriff Zurück Druckversion Stefan Falz 21.12.2000
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
%>
Sehr gut
1 2 3 4 5 6
Ungenügend
Zurück | Bisherige Aufrufe: 15875 | Bisherige Bewertungen: 18 | Durchschnitt: 2,11
Stefan Falz Webconsulting