Microsoft Excel

Herbers Excel/VBA-Archiv

Ordnerstruktur auslesen?

Betrifft: Ordnerstruktur auslesen? von: Sergej
Geschrieben am: 24.09.2020 21:42:56

Hallo Leute,

ich habe dieses Makro im Internet gefunden, um in Excel von dem Verzeichnispfad (Zeile A1) die Ordnerstruktrur auszulesen. Soweit funktioniert das Makro perfekt. Wie kann ich bitte einstellen, dass nur 4 Verzeichnisebenen ab dem Verzeichnispfad ausgelesen werden und nicht alle Verzeichnisebenen?

Public Sub OrdnerListen_Start()
Dim fso As Object
Dim path As String

'path = "P:\Daten\Projekte\2020\Aufträge"
path = Range("A1")

Cells.NumberFormat = "@"

With ActiveSheet
    .UsedRange.ClearContents
    Set fso = CreateObject("Scripting.FileSystemObject")
    Range("A1") = path
    Call OrdnerListen(fso, path, .Range("A3")) ' Pfad anpassen!
    Set fso = Nothing
End With
    
End Sub
Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As  _
Long, Optional Spalte As Long)
    Dim o, uo
    Set o = fso.GetFolder(Ordnerangabe)
    rng.Offset(Zeile, Spalte).Value = o.Name
    Zeile = Zeile + 1
    For Each uo In o.SubFolders
        Spalte = Spalte + 1
        Call OrdnerListen(fso, uo.path, rng, Zeile, Spalte)
        Spalte = Spalte - 1
    Next
    Set o = Nothing
    Set uo = Nothing
End Sub
Besten Dank im Voraus!

Gruß,
Sergej

Betrifft: AW: Ordnerstruktur auslesen?
von: ralf_b
Geschrieben am: 24.09.2020 22:03:12

du könntest die Spaltenanzahl begrenzen. Durch die Rekursion des Programmaufrufes läßt sich nur anhand der Pfadangabe oder der Position der Eintragungen(Spalte) feststellen wo sich das Programm gerade abarbeitet. Glaub ich zumindest. Deshalb wird wohl bei Spalte 4 die 4. Ebene der Ordnerstruktur sein.



Beiträge aus dem Excel-Forum zum Thema "Ordnerstruktur auslesen?"