Private Sub ReadFile(ByVal Filename As String)
Dim Bytes() As Byte
Dim X As clsFile
Dim curPacketSize As Currency
Dim curArraySize As Currency
Dim curSize As Currency
Dim curReadPos As Currency
 
   Set X = New clsFile
   X.Filename = Filename ' Dateinamen zuweisen
   If X.OpenFile(accRead, , opnNeverCreate) Then ' Datei mit Lesezugriff 
   ' öffnen, Datei nicht erstellen wenn sie nicht existiert
      curSize = X.Size ' Dateigröße ermitteln
      curPacketSize = 0
      curArraySize = 0
      curReadPos = 0
      Do Until X.EOF ' Schleife, bis Dateiende erreicht ist
         curPacketSize = curSize - curReadPos
         If curPacketSize > 4096 Then ' Datei in 4KiB Paketen lesen
            curPacketSize = 4096
         End If
         If curPacketSize <> curArraySize Then ' Array "redimen" wenn nötig
            ReDim Bytes(1 To curPacketSize)
         End If
         curArraySize = X.GetData(Bytes) ' Daten lesen
         ' Der 2. optinale Parameter von GetData gibt an, von welcher Position 
         ' an in der Datei gelesen werden soll
         ' Bytes() enthält nun die Daten ....
         curReadPos = curReadPos + curArraySize
      Loop
      X.CloseFile ' Datei schließen
      MsgBox CStr(curReadPos) & " von " & CStr(curSize) & " Bytes gelesen."
   End If
 
End Sub

Gru?,
Nukeduke

if (youAreHappyAndYouKnowIt) {
???ClapYourHands();
}