Zitat:

Dim zpd As Integer = 65000 ' Zeilen pro Datei Dim sr As New IO.StreamReader("C:\test.txt") Dim sw As IO.StreamWriter Dim lc As Integer = zpd Dim fn As Integer   While sr.Peek > -1 If lc = zpd Then If sw IsNot Nothing Then sw.Close() lc = 0 fn += 1 sw = New IO.StreamWriter("C:\test" & fn.ToString() & ".txt") End If sw.WriteLine(sr.ReadLine()) lc += 1 End While sw.Close() sr.Close()