Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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