VPF::Сравнение файлов VBScript - Форум программистов

vladrti

Дата 4.2.2012, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 4.2.2012

Репутация: нет
Всего: нет

Нужен скрипт который проверяет системный файл по размеру и если он отличается то произвести его замену на оригинальный из определенной папки archive через определенное время ~30мин.

Есть скрипт по сравнению файлов, как в него добавить копирование файла с заменой если проверяемый файл отличается.

Код


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

Это сообщение отредактировал(а) vladrti - 4.2.2012, 14:16

Данкинг

Дата 4.2.2012, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

И что дальше?

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »