Dim F1 As Integer
  Dim F2 As Integer
  Dim sTemp1 As String
  Dim sTemp2 As String
  Dim sFile1 As String
  Dim sFile2 As String
  Dim fSize As Long
  Dim rSize As Long
  Dim lSize As Long
  Dim bResult As Boolean
 
  <font color=green>' Größe eines einzelnen Blocks</font>
  Const BlockSize = 4096
 
  <font color=green>' Dateien</font>
  sFile1 = "c:	est1.txt"
  sFile2 = "c:	est2.txt"
 
  <font color=green>' Dateien öffnen</font>
  F1 = FreeFile: Open sFile1 For Binary As #F1
  F2 = FreeFile: Open sFile2 For Binary As #F2
 
  <font color=green>' Dateigröße vergleichen</font>
  If LOF(F1) <> LOF(F2) Then
    MsgBox "Dateien haben unterschiedliche Größe!"
  Else
    <font color=green>' Inhalt Blockweise einlesen und miteinander
    ' vergleichen</font>
    fSize = LOF(F1)
    rSize = 0
 
    bResult = False
    While rSize < fSize And bResult = False
      <font color=green>' Anzahl einzulesender Bytes</font>
      lSize = IIf(rSize + BlockSize > fSize, _
        fSize - rSize, BlockSize)
 
      <font color=green>' Variablen vorbereiten</font>
      sTemp1 = Space$(lSize)
      sTemp2 = Space$(lSize)
 
      <font color=green>' Inhalte einlesen</font>
      Get #F1, , sTemp1
      Get #F2, , sTemp2
 
      bResult = (sTemp1 <> sTemp2)
      rSize = rSize + lSize
    Wend
 
    If bResult Then _
      MsgBox "Datei-Inhalte unterscheiden sich!"
  End If
 
  <font color=green>' Dateien wieder schliessen</font>
  Close #F1: Close #F2