Dim F As Integer
Dim N As Integer
Dim sBuffer As String
Dim nSatzLen As Long
Dim nBlockSize As Long
Dim nSatzCount As Long
Dim nFileNr As Long
Dim nMaxSatzCount As Long
Dim nSatzRead As Long
 
' Satzlänge
nSatzLen = 150
 
' Anzahl Sätze, die gleichzeitig gelesen werden
nSatzCount = 1000
 
' Blockgröße
nBlockSize = nSatzLen * nSatzCount
 
' max. Sätze pro Datei
nMaxSatzCount = 10000000
 
' Originaldatei öffnen
F = FreeFile
Open "Original.txt" For Binary As #F
 
sBuffer = Space$(nBlockSize)
 
' Quelldatei einlesen
While Not Eof(F)
  ' Blockweise einlesen
  Get #F, , sBuffer
  If nSatzRead >= nMaxSatzCount Or nFileNr = 0 Then
    If nFileNr > 0 Then Close #N
    nFileNr = nFileNr + 1
    N = FreeFile
    Open "Zieldatei_" & CStr(nFileNr) & ".txt" For Binary As #N
    nSatzRead = 0
  End If
  Put #N, , sBuffer
  nSatzRead = nSatzRead + nSatzCount
Wend
Close #F: Close #N

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de