サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ バイナリファイルの比較(VB6.0)_1 ( No.1 ) 　[親スレッドへ] 日時： 2011/04/05 10:46 名前： 花ちゃん *********************************************************************************** * カテゴリー：[ファイル][ファイル入出力][]                                        * * キーワード：バイナリ,Binary,,,,　　　                                           * *********************************************************************************** ----------------------------------------------------------------------------------- Re: バイナリファイルの比較 - Starfish 　2006/10/06-00:18 No.7443 ----------------------------------------------------------------------------------- 　こんな感じでも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

　[スレッド一覧へ]　[親スレッドへ]