Textdatei per Batch in mehrere aufteilen

Hallo zusammen,

ich habe folgendes Problem.
Ich habe eine Textdatei, die sehr viele Zeilen enthält (>10000 Zeilen).

Eine vorhandene Batch geht her und liest nacheinander eine Zeile aus, macht damit etwas, und schreibt das Ergebnis in eine Ausgabedatei.
So geht die Batch von Zeile zu Zeile, was natürlich entsprechend lange dauert, bis alle Zeilen durch sind.

Nun habe ich mir überlegt, dass man das ganze Parallel laufen lassen könnte.
Sprich ich teile die Quell-Textdatei in mehrere Teile, verteile diese auf mehrere Ordner, und starte in jedem Ordner die jeweilige Batch-Datei, die die Verarbeitung pro Zeile in der jeweiligen Teil-Quell-Datei übernimmt.

Am Ende, wenn alle Batch-Dateien durchgelaufen sind, füge ich die verschiedenen Ausgabe-Dateien der verschiedenen Ordner zusammen.
Das Zusammenfügen mache ich am einfachsten mit dem for-Befehl. Ich lasse in jedem Ordner jeweils die Ausgabedatei zeilenweise lesen und schreibe das ganze dann in eine große Ausgabedatei.

Mein Problem:
Wie teile ich die große Quelldatei in möglichst gleichmäßige Teile auf. Sprich ich habe 10 Ordner, in die jeweils eine Teil-Quelldatei mit ungefähr gleich viel Zeilen soll.

Wie könnte ich sowas am elegantesten machen? Wichtig wäre, dass halt immer genau 10 Teildateien rauskommen.
Sprich wenn nur 10 Zeilen in der großen Quelldatei stehen, dann sollen halt 10 Dateien mit jeweils einer Zeile davon rauskommen, umgekehrt bei 10000 Zeilen eben 1000 Zeilen pro Datei.

Viele Grüße
Martin

rem arbeitskopie
copy meinetextdatei.txt meintextdatei.ini
@echo endeglaende >> meintextdatei.ini
find /n "endeglaende" meintextdatei.ini  

Quelle = "D:\Datei.txt"  
Ziel = "D:\Teil"  
Set fso = CreateObject("Scripting.FileSystemObject")  
T = Split(fso.OpenTextFile(Quelle).ReadAll, vbCrLF)
U = UBound(T)
S = Int(U / 10)
For i = 1 To 9
	W = ""  
	For j = (i - 1) * S To i * S - 1
		W = W & T(j) & vbCrLF
	Next
	fso.CreateTextFile(Ziel & i & ".tmp", True).Write W  
Next
W = ""  
For j = 9 * S To U
		W = W & T(j) & vbCrLF
Next
fso.CreateTextFile(Ziel & "10.txt", True).Write W  

''This simple VBScript spilts large text files into multiple files  
 
Dim  Counter
Const InputFile = "C:\input.txt"  
Const OutputFile = "C:\output"  
Const RecordSize = 200000
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objTextFile = objFSO.OpenTextFile (InputFile, ForReading)
Counter = 0
FileCounter = 0
Set objOutTextFile = Nothing
 
Do Until objTextFile.AtEndOfStream
    if Counter = 0 Or Counter = RecordSize Then
        Counter = 0
        FileCounter = FileCounter + 1
        if Not objOutTextFile is Nothing then objOutTextFile.Close
        Set objOutTextFile = objFSO.OpenTextFile( OutputFile & "_" & FileCounter & ".csv", ForWriting, True)  
    end if
    strNextLine = objTextFile.Readline
    objOutTextFile.WriteLine(strNextLine)
    Counter = Counter + 1
Loop
objTextFile.Close
objOutTextFile.Close
Msgbox "Split process complete"