[amel27]

korenza, что нужно получить в результате?... список различий или только True/False?

[korenza]

amel27, Добрый день, пока ждал подсказки, наваял на JS, вот такого плана

Код:

CompareFiles()  
function CompareFiles()
{ 	  		
var Stream = new ActiveXObject("ADODB.Stream"), 
FSO = WScript.CreateObject("Scripting.FileSystemObject"), 			
Args = WScript.Arguments; 			
if (Args.Length == 0) 				
WScript.echo("Запущен скрипт без указания аргументов командной строки"); 			
else if(Args.Length != 2) 				
WScript.echo("Количество аргументов командной строки должно быть равно 2"); 			
else 		
var fso = new ActiveXObject("Scripting.FileSystemObject"), 			
filesPath = Args.Item(0), 			
filesPath1 = Args.Item(1); 			
if(!fso.FileExists(filesPath)) 		
{ 			
WScript.echo("Файла для сравнения'" +Args.Item(0)+ "'  нет на диске") 			
return; 		} 			
else if(!fso.FileExists(filesPath1)) 		 		
{ 			
WScript.echo("Файла для сравнения '" +Args.Item(1)+ "'  нет на диске") 			
return; 		
} 			
{ 			
WScript.echo("Начинаю проверку файлов на идентичность"); 				
Stream.Type = 2; 		
Stream.Open(); 				
Stream.LoadFromFile(FSO.GetAbsolutePathName(Args(0))); 		
var File1 = Stream.ReadText(); 				
Stream.Close(); 			
Stream.Open(); 			
Stream.LoadFromFile(FSO.GetAbsolutePathName(Args(1))); 		
var File2 = Stream.ReadText(); 			
Stream.Close(); 	
if (File1 == File2) WScript.echo("Файлы идентичны"); 		
else WScript.echo("Файлы неидентичны");		 			
} }

Теперь возник один маленький вопрос.
Сейчас, если в качестве первого аргумента введен несуществующий файл, то в консоли выдается сообщение, что файла +Args.Item(0)+ нет на диске, если же введен в качестве второго аргумента несуществующий файл, то выдается сообщение, что файла +Args.Item(0)+ нет. Как бы сделать так, чтобы выводилось сообщение об отсутствии либо 2-х файлов сразу (если их действительно нет), либо первого, либо второго, в зависимости от заданных аргументов коммандной строки.

[amel27]

korenza, на JS с VBS перестраиваться не буду, для проверки существования используйте метод FileExists объекта "Scripting.FileSystemObject" и свойство Args.Count для перебора параметров

[korenza]

amel27, Ок, без проблем, но если незатруднительно, можете скинуть код бинарного сравнения файлов на VBS, результат True/False, без лишних проверок?

[amel27]

korenza, примерно так:

Код:

Set oFSO = CreateObject("Scripting.FileSystemObject")

WScript.Echo FileCompare("C:\test1","C:\test2")

Function FileCompare(sFile1, sFile2)
  Dim oStream, buf1, buf2

  FileCompare = vbFalse
  If oFSO.FileExists(sFile1) And oFSO.FileExists(sFile2) Then
    Set oStream=WScript.CreateObject("ADODB.Stream")
    oStream.Open:oStream.Type=1
    oStream.LoadFromFile(sFile1):buf1 = oStream.Read
    oStream.LoadFromFile(sFile2):buf2 = oStream.Read
    oStream.Close

    If UBound(buf1)=UBound(buf2) Then
      buf1=CStr(buf1):buf2=CStr(buf2)
      If StrComp(buf1,buf2,0)=0 Then FileCompare=vbTrue:Exit Function
    End If
  End If
End Function

[korenza]

amel27, Спасибо за код. Просто хочу научиться скриптить и на VBS. Только при сравнении файлов всегда возвращается -1, даже если они идентичны.?

[amel27]

korenza, -1 это как раз совпадение, т.е. "истина" (vbTrue), 0 - "ложь" (vbFalse)

[korenza]

Когда файлы различны, тоже выдает -1

[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