投稿日 | : 2006/10/05(Thu) 23:03 |
投稿者 | : つぼちゃん |
Eメール | : |
URL | : |
タイトル | : バイナリファイルの比較 |
バイナリファイルの比較を行いたいのですが、どのようにして行えばよいでしょうか。
ネットで検索し、以下のようなサンプルがあり、これでいけるのではないかという意見がありましたが、Do While のループの中に入らずにスルーしてしまいます。
Dim buf1(1) As Byte
Dim buf2(1) As Byte
Open "ホゲホゲ1.wav" For Binary As #1
Open "ホゲホゲ2.wav" For Binary As #2
Get #1, , buf1
Get #2, , buf2
Do While Not EOF(1)
データ比較処理
Loop
Close #1,#2
ちなみに実際に比較したいのはjpgファイルで、同じか違うかだけ比較できればよいです。