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:
Post a Comment