Set fso = CreateObject("Scripting.FileSystemObject")
    Set oRep = fso.GetFolder(sPathBegin)   'Hier den Pfad angeben
 
    For Each oFolder In oRep.SubFolders
        'Unterverzeichnis ausgeben
        Debug.Print oFolder.Name
            For Each oFiles In oFolder.Files
                'Dateiname ausgeben
                  Debug.Print oFiles.Name
            Next oFiles
        End If
    Next oFolder