Thema
Unterverzeichnisse eines vorgegebenen Pfades auslesen
Gruppe
Wsh
Problem
Es sollen alle Unterverzeichnisse des in Zelle B1 genannten Pfades genannt werden. WindowsScriptingHost muss installiert sein.
StandardModule: Modul1
Sub ReverseFolders()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubFolders FSO.GetFolder(Range("B1").Value)
End Sub
Sub ShowSubFolders(Folder)
Dim Subfolder As Object
For Each Subfolder In Folder.SubFolders
MsgBox Subfolder.Path
ShowSubFolders Subfolder
Next
End Sub