Make your own free website on Tripod.com
Check If Two Files Are Identical

Author: T-Rex Software

Form Code

'replace "c:\mydir\myfile.exe" and "c:\mydir2\myfile2.exe"
'with the files you want to compare
Private Sub Form_Load()
Open "c:\mydir\myfile.exe" For Binary As #1
Open "c:\mydir2\myfile2.exe" For Binary As #2
issame% = True
If LOF(1) <> LOF(2) Then
   
issame% = False
Else
   
whole& = LOF(1) \ 10000         'number of whole 10,000 byte chunks
        part& = LOF(1) Mod 10000        'remaining bytes at end of file
        buffer1$ = String$(10000, 0)
        buffer2$ = String$(10000, 0)
        start& = 1
        For x& = 1 To whole&            'this for-next loop will get 10,000
        Get #1, start&, buffer1$      'byte chunks at a time.
       
Get #2, start&, buffer2$
        If buffer1$ <> buffer2$ Then
           
issame% = False
                Exit For
        End If
       
start& = start& + 10000
        Next
       
buffer1$ = String$(part&, 0)
        buffer2$ = String$(part&, 0)
        Get #1, start&, buffer1$        'get the remaining bytes at the end
       
Get #2, start&, buffer2$        'get the remaining bytes at the end
       
If buffer1$ <> buffer2$ Then issame% = False
        End If
       
Close
        If issame% Then
           
MsgBox "Files are identical", 64, "Info"
        Else
            MsgBox "Files are NOT identical", 16, "Info"
        End If

End Sub

Go Back