Dir und Eigenschaften Verzeichnisstruktur

• Dir und Eigenschaften Verzeichnisstruktur von RALF vom 18.02.2005 09:34:18
• AW: Dir und Eigenschaften Verzeichnisstruktur - von Nepumuk am 18.02.2005 18:04:00

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

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

Excel-Beispiele zum Thema "Dir und Eigenschaften Verzeichnisstruktur"
Auslesen der Arbeitsmappeneigenschaften	Ordnereigenschaften auslesen