投稿日 | : 2006/10/06(Fri) 00:18 |
投稿者 | : Starfish |
Eメール | : |
URL | : |
タイトル | : Re: バイナリファイルの比較 |
こんな感じでもOKです。ファイルを読む前に、ファイルサイズのチェックをしたほうが
まともでしょうが、適当に直して使ってください。
Dim bytBuf1() As Byte
Dim bytBuf2() As Byte
Open "ホゲホゲ1.wav" For Binary As #1
Open "ホゲホゲ2.wav" For Binary As #2
bytBuf1 = InputB(LOF(1), #1)
bytBuf2 = InputB(LOF(2), #2)
Close #1, #2
If CStr(bytBuf1) = CStr(bytBuf2) Then
MsgBox "同じです。"
Else
MsgBox "違います。"
End If