Excel Makro z. auslesen v. Verzeichnissen und Date
20.01.2017 09:46:43
S.
ich möchte von einem Verzeichnis x die Unterordner/Verzeichnisse inkl. Dateien in Spalten darstellen.
Das darstellen der Verzeichnisstruktur klappt auch bereits hiermit:
Public Sub OrdnerListen_Start()
Dim fso As Object
Dim strPfad As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Start-Verzeichnis wählen"
.ButtonName = "übernehmen"
If .Show -1 Then Exit Sub
strPfad = .SelectedItems(1)
End With
With ActiveSheet
.UsedRange.ClearContents
Set fso = CreateObject("Scripting.FileSystemObject")
Call OrdnerListen(fso, strPfad, .Range("A1")) 'Beginn ist in Zelle A1!
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
Nun möchte ich in die nächste freie Spalte, den Dateinamen jeder Datei im Ordner/Verzeichnis ausgeben, sodass die Anzeige schließlich wie folgt wäre:
Beispiel:
Spalte A Spalte B Spalte C Spalte, die als nächstes frei ist
Proj-----|
|-----SUB Ordner 1--------------------- Datei.txt
| |--------------------- Datei.pdf
|-----SUB Ordner 2
| |---- Verzeichnis x
| | |-- Datei.dwg
| |----------------------Datei2.pdf
| |--------------------- Datei.jpg
Danke im Voraus!
Steffen