利用脚本进行文件比较

小孩

呵呵很久没有发帖子了,下面的脚本是用来做文件比较用
Dim WshShell, oExec

Set WshShell = CreateObject("WScript.Shell")

Set oExec = 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

[ 本帖最后由 小孩 于 2008-8-13 18:12 编辑 ]

假装不在

不会很久吧，昨天才看到。

kevin_swpi

可以再扩充下
比如
把不一样的用颜色标记出来

这样我想就更加完美了  呵呵

小孩

原帖由 kevin_swpi 于 2008-8-13 14:03 发表

可以再扩充下
比如
把不一样的用颜色标记出来

这样我想就更加完美了  呵呵

满足你的需求 哈哈

kevin_swpi

原帖由 小孩 于 2008-8-13 18:12 发表

满足你的需求 哈哈

...

我是说 比较两个文本后
将不一样的文本内容进行标注出来...

centurystone

对比*.JPG文件时，怎么运行的结果总是“Failure”啊？即使是复制两个完全相同的JPG文件，在对比.TXT文件时也是返回Failure。。。。

fc /b c:\test.jpg c:\test.jpg这句话里的 /b是什么意思啊？