Public Function Read_File(sDatei As String)
On Error GoTo Err_Read_File
  Dim F As Integer
  Dim sInhalt As String
  Dim cSize As Currency
  Dim lSN As Currency
  Dim lSteps As Long
  Dim cZwoGig As Currency
 
  If Dir$(sDatei, vbHidden + vbSystem) = "" Then Exit Function
 
  lSteps = 1048576 ' entspricht 1MB
  cZwoGig = 2146435072 'kurz befohr der Fehler kommt
  F = FreeFile
  Open sDatei For Binary Access Read As #F
    cSize = nLOF(F)
    If cSize = -1 Then GoTo Exit_Function
    sInhalt = Space$(lSteps)
    Do While sInhalt <> ""
      If (lSN) >= cZwoGig Then MsgBox "Achtung: Gleich kommt der Fehler"
      If lSN + Len(sInhalt) > cSize Then sInhalt = Space(cSize - lSN + 1)
      Get #F, , sInhalt
      Call CheckInhalt(sInhalt) 'Function zum verarbeiten des Inhaltes
      lSN = lSN + Len(sInhalt)
      DoEvents
    Loop
 
GoTo Exit_Function
 
Err_Read_File:
  If MsgBox("Es ist ein Fehler aufgetreten" & vbNewLine & Err.Description & _
    vbNewLine & "Vorgang Wiederholen?", vbYesNo, "Fehlernummer: " & Err.Number) _
    = vbYes Then _
      Resume
 
Exit_Function:
  Close #F
 
End Function
 
'Diese Funktion ermittelt die größe einer datei, auch wenn sie über 2GB ist
Private Function nLOF(FileNR As Integer) As Currency
On Error Resume Next
 
  Dim lValue As Long
  Dim nSize As Currency
 
  lValue = LOF(FileNR)
  If lValue < 0 Then
    nLOF = 2147483648# + (2147483648# - Abs(lValue))
    If Err.Number > 0 Then nLOF = -1: Exit Function
  Else
    nLOF = lValue
  End If
 
End Function