» Сравнение файлов на VBScript

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

[more] Доброе время суток у меня похожая задача.
Но вот только часть скрипта у меня есть.
Задача. из общей папки получать имена файлов копировать их в зависимости от имени в свои папки далее производить архивирования, после чего перемещать эти архивы в сеть.

Эта задача выполняется, но при возникновение задвоения в имен файлов скрипт перестает работать, как решить?

On Error Resume Next
Rabota_Copied = 0
Rab1_copied = 0
srcFolder = "C:\Test_script\1\"
Rabota_Folder = "C:\Test_script\2\"
Rab1_Folder = "C:\Test_script\3\"
arh_folder = "C:\Test_script\4\"

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set CFolder = FSO.GetFolder(srcFolder)
Set CFile = CFolder.files

For Each f1 in CFile
    NameExtFile = Trim(f1.Name)
    Point = InStr(NameExtFile, ".")
    NameFile = Left(NameExtFile, Point - 1)
    ExtFile = Mid(NameExtFile, Point + 1)
    if (ExtFile = "txt") OR (ExtFile = "TXT") Then
        NameShort = Left(NameFile, 8)
        if Rabota_Copied = 0 then
            if NameShort = "Rab1_regio" then
                FSO.CopyFile srcFolder & f1.name, Rabota_Folder & NameShort & ".txt"
            end if
            UT_szfo_Copied = 1
        End if
        if Rab1_Copied = 0 then
            if NameShort = "rab_2010" then
                FSO.CopyFile srcFolder & f1.name, Rab1_Folder & NameShort & ".txt"
            end if
            Rab1_Copied = 1
        End if
        exefiles = """C:\Program Files\WinRAR\Rar.exe"" m -m3 -ep -ri1 -inul -tl """ & srcFolder & NameFile & ".rar""" & " """ & srcFolder & NameExtFile & Chr(34)
        RetCode = WshShell.Run(exefiles, 1, True)
    End If        
Next
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile srcFolder & "*.rar", arh_folder

[/more]