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"