Dim oFSO As New FileSystemObject
    Dim oFolder As Folder
    Dim oFile As File
    Dim InputLib As String
    Dim OutputLib As String
    InputLib = "C:\Pfad1\"
    OutputLib = "C:\Pfad2\"
 
    For Each oFolder In oFSO.GetFolder(InputLib).SubFolders
        'tu dies und das mit ordnern
        '....
        'MsgBox oFolder
 
        For Each oFile In oFolder.Files  '<- hier kommt der Fehler
            'MsgBox oFile
        Next
    Next