2

内部の内容が等しいかどうかを確認したい 2 つのファイルがあります。そのうちの 1 つは Sample1.txt のようなテキスト ファイルで、もう 1 つは main.css のような別のファイルであるとします。中身が同じなら。

みたいに思ってた

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


End IF

これを行うためのより良い方法はありますか。

ありがとう

4

1 に答える 1

5

If your just interested in whether or not the files are different the easiest way would be shelling out to 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 に答える