Dim i As Integer
Dim FileNum As Integer
Dim x As Long
Dim StartPos As Long
Dim ActPos As Long
Dim tmpCount As Long
Dim tmpByteToRead As Long
Dim LinesCount As Long
Dim FileLength As Double
Dim tmpBytesRead As Double
Dim tmpData As String
Dim tmpArray() As String
 
x = 0
LinesCount = 0
For i = 0 To 6
    FileNum = FreeFile
    Open ("D:\Temp\test" & CStr(i + 1) & ".txt") For Binary As #FileNum
        FileLength = LOF(FileNum)
        tmpByteToRead = 256& * 256&
        tmpBytesRead = 0
        Do
            If FileLength = tmpBytesRead Then
                Exit Do
            ElseIf (FileLength - tmpBytesRead) < tmpByteToRead Then
                tmpByteToRead = FileLength - tmpBytesRead
            End If
            tmpData = Space$(tmpByteToRead)
            Get #FileNum, tmpBytesRead + 1, tmpData
            StartPos = 1
            tmpCount = 0
            Do
                ActPos = InStr(StartPos, tmpData, Chr(10))
                If ActPos = 0 Then Exit Do
                tmpCount = tmpCount + 1
                StartPos = ActPos + 1
            Loop
            LinesCount = LinesCount + tmpCount
            tmpBytesRead = tmpBytesRead + tmpByteToRead
        Loop
    Close FileNum
    ReDim Preserve tmpArray(LinesCount)
    FileNum = FreeFile
    Open ("D:\Temp\test" & CStr(i + 1) & ".txt") For Input As #FileNum
        While Not EOF(FileNum)
            Line Input #FileNum, tmpArray(x)
            If tmpArray(x) <> vbNullString Then
                x = x + 1
            End If
        Wend
    Close FileNum
    Debug.Print (CStr(Now) & ": Bearbeitung der Datei test" & CStr(i + 1) & _
      ".txt fertiggestellt!")
Next
ReDim Preserve tmpArray(x - 1)
 
Debug.Print ("--> " & CStr(UBound(tmpArray) + 1) & " Datensätze im Array" & _
  "'tmpArray' (0 - " & CStr(UBound(tmpArray)) & ")")