file compare bit by bit...

Hey all,
Remember the old DOS compare command? Is there a VB control anyone is aware of that will do same kind of bit by bit file comparison?
Thnx!

This something of what you want?

Code:

---

Sub file_compare(file1 As String, file2 As String)
'this checks two files to see if they are identical

Open file1 For Binary As #1
 Open file2 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
 Else
 MsgBox "Files are NOT identical", 16
 End If
End Sub

---

Now did you just whip this up or did you have that code somewhere?