Microsoft Excel

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