Porovnání dvou souborů

   Dim blnSame As Boolean 
   Dim lngWhole As Long 
   Dim lngPart As Long 
   Dim strBuffer1 As String 
   Dim strBuffer2 As String 
   Dim lngStart As Long 
   Dim intCount As Integer 

   Open strPath1 For Binary As #1 
   Open strPath2 For Binary As #2 

   blnSame = True 
   If LOF(1) <> LOF(2) Then 
      blnSame = False 
   Else 
      lngWhole = LOF(1) \10000 
      lngPart = LOF(1) Mod 10000 
      strBuffer1 = String$(10000, 0) 
      strBuffer2 = String$(10000, 0) 
      lngStart = 1 
      For intCount = 1 To lngWhole 
         Get #1, lngStart, strBuffer1 
         Get #2, lngStart, strBuffer2 
         If strBuffer1 <> strBuffer2 Then 
            blnSame = False 
            Exit For 
         End If 
         lngStart = lngStart + 10000 
      Next 
      strBuffer1 = String$(lngPart, 0) 
      strBuffer2 = String$(lngPart, 0) 
      Get #1, lngStart, strBuffer1 
      Get #2, lngStart, strBuffer2 
      If strBuffer1 <> strBuffer2 Then blnSame = False 
   End If 
   Close 

   If blnSame Then 
      MsgBox "Soubory jsou identické", 64, "Info" 
   Else 
      MsgBox "Soubory nejsou identické", 16, "Info" 
   End If 

End Sub

Zpět