Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Extern und Wsh