Herbers Excel-Forum - das Archiv
Dir und Eigenschaften Verzeichnisstruktur
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