Dir und Eigenschaften Verzeichnisstruktur

Bild

Betrifft: Dir und Eigenschaften Verzeichnisstruktur von: RALF
Geschrieben am: 18.02.2005 09:34:18

Mahlzeit zusammen,

ich suche einen kurzen VBA code (oder eine andere Möglichkeit), eine Verzeichnisstruktur mit beliebigen Unterordnern hirarchisch auszulesen und die entsprechenden Eigenschaften anzuzeigen
Bsp.
Verzeichnis 1 - Größe, zuletzt geändert
Unter-Verzeichis 11 - Größe, zuletzt geändert
Unter-Verzeichis 12 - Größe, zuletzt geändert
Unter-Verzeichis 13 - Größe, zuletzt geändert

Verzeichnis 2 - Größe, zuletzt geändert
Unter-Verzeichis 21 - Größe, zuletzt geändert
Unter-Verzeichis 22 - Größe, zuletzt geändert
Unter-Verzeichis 23 - Größe, zuletzt geändert

Danke und Gruß
RALF

Bild


Betrifft: AW: Dir und Eigenschaften Verzeichnisstruktur von: Nepumuk
Geschrieben am: 18.02.2005 18:04:00

Hallo Ralf,

ein Beispielcode für eine rekursive Ordnersuche:


Option Explicit

Private myFileSystemObject As Object, myFolder As Object

Public Sub test()
    Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
    Call prcFindFiles("D:\Eigene Dateien\")
End Sub

Private Sub prcFindFiles(ByVal strPath As String)
    On Error GoTo Errorexit
    For Each myFolder In myFileSystemObject.GetFolder(strPath).SubFolders
        If myFolder.Attributes And 16 Then
            Debug.Print myFolder.Name & " / " & Format(myFolder.Size / 1024 ^ 2, "0.00") & " MB / " & myFolder.DateLastAccessed
            Call prcFindFiles(myFolder.Path & "\")
        End If
    Next
Errorexit:
End Sub


Gruß
Nepumuk


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dir und Eigenschaften Verzeichnisstruktur"