Ordnerstruktur (ohne Dateien) in Excel einlesen (PowerQuery?)?

Ich habe einen Ordner mit ca. 150 Sub-Folder. Ich möchte gerne die Namen aller Sub-Folder zeilenweise in Excel eingelesen haben.

Mittels Powerquery habe ich es schon hinbekommen einen ganzen Ordner mit verschachtelten Sub-Ordner inklusive Dateien einzulesen. Die Dateien sind mir allerdings wurscht. Ich will nur die Ordner-Struktur. Am besten nicht als Pfadangabe sondern als Ordner-Name.

Kennt einer eine Lösung?

Answer 1

[Marenemu]

Ich mache so etwas in zwei Schritten. Als Erstes lese ich per CMD Befehl dir Ordner ein: dir /b >dir.txt

Dann kopiere ich die Namen aus der entstandenen Textdatei nach Excel.

Woher ich das weiß: Berufserfahrung – IT Support, Studium & Hobby

Comments

[biolekia1]

Perfekt. So ging es. Vielen Dank.

Answer 2

[IchMalWiederXY]

Hier eine der Varianten, die sich auf deinen Fall anpassen lassen.

Dim FSO, FO, FU, F
Sub OrdnerAuflisten()
Set FSO = CreateObject("Scripting.FileSystemObject")
GetSubFolders "C:\Users"
End Sub
Function GetSubFolders(pfad)
Dim lRow As Long
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
    If Len(F.Path) - Len(Replace(F.Path, "\", "")) < 5 Then
        lRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
        Cells(lRow, 1).Value = F.Path
    End If
    GetSubFolders F.Path
Next
End Function