[voler]

Решил кое, что подправить, но пишет ошибку файл не найден.

HTML код:

Скрипт для отправки сообщения пользователям и архивирования файла. 
filePath = "D:\distrib\Panasonic\info.xls"
archPath = "D:\distrib\Panasonic\info.rar"
winRarPath = "C:\Program Files\WinRAR\WinRAR.exe"
Set fs = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set f = fs.GetFile(filePath)' Тут указываем за чем следим? 
x = f.DateLastModified
While 1
    If f.DateLastModified > x Then
        sendmail
		RetCode = WshShell.Run ("""winRarPath & "" a -sfx -t -m3 -r -y -dh -agDD-MMM-YY-HH-MM -ep3" " & archPath & " " &  filePath", 0, True)
        x = f.DateLastModified
    End If
    WScript.Sleep 1000
Wend