<h1>backup на основе WinRAR, WSH скриптов и Планировщика задач Windows</h1> - Настройка windows, защита, заработок в сети

' ----------

' Начало основной секции. Отсюда начнется выполнение при запуске скрипта.
Set FSO = CreateObject("Scripting.FileSystemObject")
' директория, где будут храниться бэкапы. Вы должны вписать свою директорию
' вместо "X:\DailyBackup"
sDir = "X:\DailyBackup"
Set objDir = GetFolder(sDir)
DeleteOlderFiles(objDir)

' ---------- Секция функций
' Получить файл
Function GetFile(sFile)
On Error Resume Next

Set FSO = CreateObject("Scripting.FileSystemObject")
   Set GetFile = FSO.GetFile(sFile)
   if err.number <> 0 then
   WScript.Echo "Error Opening file " & sFile & VBlf & "["&Err.Description&"]"
   Wscript.Quit Err.number
end if
End Function
' Получить папку
Function GetFolder (sFolder)
On Error Resume Next

Set GetFolder = FSO.GetFolder(sFolder)
if err.number <> 0 then
WScript.Echo "Error Opening folder " & sFolder & VBlf & "["&Err.Description&"]"
Wscript.Quit Err.number
end if
End Function
' удалить один файл (имя файла передается в sFile)
Sub DeleteFile(sFile)
   On Error Resume Next

   FSO.DeleteFile sFile, True
   if err.number <> 0 then
WScript.Echo "Error Deleteing file " & sFile & VBlf & "["&Err.Description&"]"
   Wscript.Quit Err.number
   end if
End Sub
' Удалить файлы старше 7 дней
Sub DeleteOlderFiles(objDir)
' просматриваем все файлы в директории
for each efile in objDir.Files
' используем DateLastModified, а не DateCreated, поскольку
' DateCreated не всегда возвращает правильную дату
FileDate = efile.DateLastModified
Age = DateDiff("d",Now,FileDate)
' в данном случае возраст файла не больше семи дней
   If Abs(Age)>7 Then
    DeleteFile(efile)
   End If
next
End Sub

Для работы также необходимо создать файл backup.lst (обычный текстовый файл). Он должен содержать список директорий, которые включаются в бэкап. Каждая директория должна располагаться на отдельной строчке, например, так:

Командные файлы

Рекомендую Вам также почитать: