Mit Batch zwei Textfiles in einem zusammenfügen

@echo off & setlocal
set "Ein1=input1.txt"  
set "Ein2=input2.txt"  
set "Aus=output-aus-1+2.txt"  

del "%Aus%" 2>nul  
(for /f "usebackq delims=" %%i in ("%Ein1%") do (  
    set "Zeile1=%%i"  
    set "Zeile2="  
    set /p Zeile2="  
    setlocal enabledelayedexpansion
    >>"%Aus%" echo(!Zeile1!  
    >>"%Aus%" echo(!Zeile2!  
    endlocal
))<"%Ein2%  

EinDateien = Array("D:\input1.txt", "D:\input2.txt", "D:\input3.txt", "D:\input4.txt")  
AusDatei = "D:\output.txt"  
Delim = vbNewline 'Feldtrennzeichen = Zeilenschaltung  
'Delim = ";" 'für CSV  

DatAnzahl = UBound(EinDateien) 'Anzahl Eingabedateien ermitteln  
Set fso = CreateObject("Scripting.FileSystemObject")  

MaxZeile = 0
For i = 0 To DatAnzahl 'Alle Eingabedateien durchgehen, ...  
    Z = Split(fso.OpenTextFile(EinDateien(i)).ReadAll, vbNewline) '... zeilenweise in Matrix einlesen und ...  
    If UBound(Z) > MaxZeile Then MaxZeile = UBound(Z) '... höchste Zeilenanzahl ermitteln.  
Next

ReDim A(MaxZeile, DatAnzahl) 'Matrix für alle Felder (lt Datei- und Zeilenanzahl) erstellen  

For Spalte = 0 To DatAnzahl 'Nochmals alles einlesen (je Datei entsteht eine Spalte) ...  
    Z = Split(fso.OpenTextFile(EinDateien(Spalte)).ReadAll, vbNewline)
    For Zeile = 0 To UBound(Z) '... und feldweise ...  
        A(Zeile, Spalte) = Z(Zeile) ' ... in A-Matrix übertragen.  
    Next
Next

Set Aus = fso.CreateTextFile(AusDatei)
For Zeile = 0 To MaxZeile 'Alle Felder (= Zeilen)...  
    For Spalte = 0 To DatAnzahl '... aller Dateien (= Spalten) ...  
        If Spalte <> DatAnzahl Then
            Aus.Write A(Zeile, Spalte) & Delim '... getrennt in Ausgabedatei schreiben; ...  
        Else
            Aus.Write A(Zeile, Spalte) & vbNewLine '... nach dem letzten Feld jedenfalls Zeilenschaltung.  
        End If
    Next
Next