[amel27]

korenza, гм... странно, у меня вроде правильно выдает... по сути это вариация на тему вашего же поста #3
попробуйте другим способом:

Код:

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:FileCompare = vbTrue

  If oF1.Size <> oF2.Size Then
    FileCompare = vbFalse
    Exit Function
  End If

  Set oS = oF2.OpenAsTextStream(1,0)
  With oF1.OpenAsTextStream(1,0)
    While Not .AtEndOfStream
      If .Read(1)<>oS.Read(1) Then
        FileCompare = vbFalse
        Exit Function
      End If
    Wend
  End With
End Function