Hallo Zusammen,
mit angehangenem Code wird eine gesamte Ordnerstruktur inklusive Unterordner eingelesen und jeweils in Spalten angezeigt.
Soweit so gut. Funktioniert auch wunderbar.
Heute habe ich gemerkt, dass es Schwierigkeiten mit der Sortierung von Zahlen gibt.
Ordnerstruktur im Explorer Oberordner/Unterordner
1
2
1 in 2
10
11
1 in 11
100
Sortierung nach dem Einlesen in Excel
1
10
100
11
1 in 11
2
1 in 2
Wie und wo kann ich im Code festlegen, dass die eingelesenen Werte genau so dargestellt werden wie im Explorer?
Danke im voraus!
mit angehangenem Code wird eine gesamte Ordnerstruktur inklusive Unterordner eingelesen und jeweils in Spalten angezeigt.
Soweit so gut. Funktioniert auch wunderbar.
Heute habe ich gemerkt, dass es Schwierigkeiten mit der Sortierung von Zahlen gibt.
Ordnerstruktur im Explorer Oberordner/Unterordner
1
2
1 in 2
10
11
1 in 11
100
Sortierung nach dem Einlesen in Excel
1
10
100
11
1 in 11
2
1 in 2
Wie und wo kann ich im Code festlegen, dass die eingelesenen Werte genau so dargestellt werden wie im Explorer?
Danke im voraus!
Quellcode
- Public Sub OrdnerListen_Start()
- Dim fso As Object
- With ActiveSheet
- .UsedRange.ClearContents
- Set fso = CreateObject("Scripting.FileSystemObject")
- Call OrdnerListen(fso, "E:\Test", .Range("A1")) ' 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