Friday, June 3, 2011

Comparing two Images

fileOne = "C:\temp\1.bmp"
fileTwo= "C:\temp\2.bmp"
fileThree= "C:\temp\3.bmp"
set oCompareUtil = CreateObject("Mercury.FileCompare")
if oCompareUtil.IsEqualBin(fileOne, fileTwo, 0, 1) then
 Msgbox("1 & 2 are same")
else
 Msgbox("1 & 2 are NOT same")
end if
if oCompareUtil.IsEqualBin(fileOne, fileThree, 0, 1) then
 Msgbox("1 & 3 are same")
else
 Msgbox("1 & 3 are NOT same")
end if
set oCompareUtil = Nothing

No comments: