Question

如果里面的内容相同或者没有，我想看看有2个文件。其中一个是像Sample1.txt这样的文本文件，另一个是像main.css这样的不同文件我怎么能比较二，看看里面的内容是否相同。

我在想

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


End IF

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

由于

Answer 1

如果您只是对文件是否不同感兴趣，那么最简单的方法就是炮轰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

比较vbscript中的2个文件

1 个答案: