[amel27]

кстати, так тоже вроде работает:

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oF1 = FSO.GetFile("test1")
Set oF2 = FSO.GetFile("test2")

WScript.Echo FileCompare(oF1, oF2)

Function FileCompare(oF1, oF2)
  Dim oS, iZ1, iZ2, sF1, sF2
  iZ1=oF1.Size:iZ2=oF2.Size
  FileCompare=False

  If iZ1<>iZ2 Then Exit Function
  Set oS=oF1.OpenAsTextStream(1,0)
  sF1 = oS.Read(iZ1)
  Set oS=oF2.OpenAsTextStream(1,0)
  sF2 = oS.Read(iZ2)

  If StrComp(sF1,sF2,0)=0 Then FileCompare=True
End Function