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 - 2017 by Stefan Falz Webconsulting

GetFile! Dynamischer Dateiupload im Browser

Dateizugriff Zurück Druckversion Stefan Falz 07.01.2004
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
' -----------------------------------------------------------------------------
%>

Sehr gut
1 2 3 4 5 6
Ungenügend
Zurück | Bisherige Aufrufe: 46840 | Bisherige Bewertungen: 20 | Durchschnitt: 1,85
Stefan Falz Webconsulting