Ordner auflisten (ein überspringen)?
Selma
ich möchte in aktivem Arbeitsblatt ab Zeile A2 alle
Ordner (zweite Ordnerebene) von "D:\Kunden\" auflisten.
Diese Code habe ich hier im Forum gefunden den ich fast gebrauchen könnte:
Sub ShowFolderList_1()
Dim fs, f, f1, fc, s, i
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("c:\")
Set fc = f.SubFolders
Cells(1, 1) = f
i = 2
For Each f1 In fc
Cells(i, 1) = f1.Name
i = i + 1
Next
End Sub
Was muss in obigem Code geändert werden, damit nach dem "D:\Kunden\" ein Ordner ignoriert wird (übersprungen) und die nächsten auflisten. Es soll immer die zweite Ordnerebene des "D:\Kunden\" aufgelistet werden.
Meine Ordnerstruktur als Beispiel:
D:\Kunden\A\Albrecht\2005\Bestellungen
D:\Kunden\B\Brügner\2006\Wünsche
D:\Kunden\B\Brinkmann\2004\Angebote
usw.
Aufgelistet (ab A2) soll dies:
Albrecht
Brügner
Brinkmann
Vielen Dank im Voraus...
Liebe Grüße
SELMA
Anzeige