Simples Programm dass mehrere Text Dokumente in einem bindet

@echo off
if not exist "C:\Text\" md "C:\Text\"  
if not exist "C:\Text\Final\" md "C:\Text\Final\"  
copy "C:\Text\*.*" "C:\Text\Final\Alles.txt"  

md C:\Test1\Test2\Test3\Test4

@echo off
set "eingabeordner=C:\Text\"  
set "ausgabeordner=C:\Text\Final\"  
if not exist "%eingabeordner%" md "%eingabeordner%"  
if not exist "%ausgabeordner%" md "%ausgabeordner%"  
copy "%eingabeordner%\*.*" "%ausgabeordner%\Alles.txt"  

Quelle = "C:\Test"  
Typ = "txt"  
Ziel = "C:\Test\Final"  
Sammeldatei = "Gesamt.txt"  

Set fso = CreateObject("Scripting.FileSystemObject")  
If Not fso.FolderExists(Ziel) Then
    WScript.Echo "Der Zielordner existiert nicht!"  
    WScript.Quit(1)
End If

Set Sammel = fso.OpenTextFile(Ziel & "\" & Sammeldatei, 2, True)  
For Each Datei In fso.GetFolder(Quelle).Files
    If LCase(fso.GetExtensionName(Datei.Name)) = LCase(Typ) Then
        Sammel.Write Datei.OpenAsTextStream.ReadAll
    End If
Next