Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dir und Eigenschaften Verzeichnisstruktur

Dir und Eigenschaften Verzeichnisstruktur
18.02.2005 09:34:18
RALF
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dir und Eigenschaften Verzeichnisstruktur
18.02.2005 18:04:00
Nepumuk
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige