2

我有 2 个文件,我想看看里面的内容是否相等。假设其中一个是像 Sample1.txt 这样的文本文件,另一个是像 main.css 这样的不同文件,我怎样才能比较两者以查看如果里面的内容是一样的。

我在想

Content1 = FSO.OpenTextFile(sample.txt).ReadAll
Content2 = FSO.OpenTextFile(main.css).ReadAll
if(Content1 = Content2) Then


End IF

有没有更好的方法来做到这一点。

谢谢

4

1 回答 1

5

如果您只是对文件是否不同感兴趣,最简单的方法是fc

Function qq(str)
  qq = Chr(34) & str & Chr(34)
End Function

Function AreDifferent(f1, f2)
  cmd = "%COMSPEC% /c fc /b " & qq(f1) & " " & qq(f2)
  AreDifferent = CBool(CreateObject("WScript.Shell").Run(cmd, 0, True))
End Function
于 2013-07-15T13:58:59.523 回答