文件比较

Dim WshShell, oExec

Set WshShell = CreateObject("Wscrīpt.Shell")

Set ōExec = WshShell.Exec("fc /b c:\test.jpg c:\test.jpg")

output = oExec.StdOut.ReadAll()

If Instr(1,output, "找不到相异处", 1) Then '这里的
MsgBox "Success"
Else
MsgBox "Failure"
End If