- 日時： 2007/08/02 14:17
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[ファイル][ファイル入出力][] *
* キーワード：バイナリ,Binary,,,, *
***********************************************************************************
元質問：バイナリファイルの比較 - つぼちゃん 2006/10/05-23:03 No.7440
バイナリファイルの比較を行いたいのですが、どのようにして行えばよいでしょうか。
ちなみに実際に比較したいのはjpgファイルで、同じか違うかだけ比較できればよいです。
-----------------------------------------------------------------------------------
Re: バイナリファイルの比較 - 魔界の仮面弁士 2006/10/05-23:25 No.7442
-----------------------------------------------------------------------------------
ハッシュ値を比較するとか。
http://www.hi-ho.ne.jp/babaq/basp21.html
Const FromString As Integer = 0
Const FromFile As Integer = 1
Dim S(1) As String
With CreateObject("BASP21")
S(0) = .MD5("C:\001.JPG", FromFile)
S(1) = .MD5("C:\002.JPG", FromFile)
End With
If S(0) = S(1) Then
MsgBox "同じファイルです。"
Else
MsgBox "異なるファイルです。"
End If
|
バイナリファイルの比較(VB6.0)