Dim fso As New FileSystemObject
Dim SourceFile As File
Dim fsoSourceFile As TextStream
Dim fsoNewFile As TextStream
Dim fsoSourceFolder As Folder
 
' Zieldatei
Set fsoNewFile = fso.OpenTextFile(App.Path & "tmrueb.txt", ForWriting, True)
 
For Each SourceFile In fso.GetFolder(Quellordner).Files
        ' Quelldatei zum lesen Öffnen
        Set fsoSourceFile = fso.OpenTextFile(SourceFile.Path, ForReading)
        ' Zieldatei fühlen mit Quelldatei und Zeilenumbruch anfügen
        ' Hier bleibt die Funktion Stehen auf den Win2KServer Rechner
        fsoNewFile.Write fsoSourceFile.ReadAll & vbCrLf
        ' Zieldatei schließen
        fsoSourceFile.Close
        Set fsoSourceFile = Nothing
Next

Schauen wir mal