ник: час
Помню....
Где он блин - поди найди 
==============================
' Начало основной секции. Отсюда начнется выполнение при запуске скрипта.
Set FSO = CreateObject("Scripting.FileSystemObject")
' директория, где будут храниться бэкапы. Вы должны вписать свою директорию
' вместо "C:\1_Текущее\Склад_ПВХ\1_PROGRAMS\ARHIV"
sDir ="C:\1_Текущее\Склад_ПВХ\1_PROGRAMS\ARHIV"
Set objDir = GetFolder(sDir)
DeleteOlderFiles(objDir)
' ---------- Секция функций
' Получить папку
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
' Удалить файлы старше 2 дней
Sub DeleteOlderFiles(objDir)
' просматриваем все файлы в директории
for each efile in objDir.Files
' используем DateLastModified, а не DateCreated, поскольку
' DateCreated не всегда возвращает правильную дату
FileDate = efile.DateLastModified
Age = DateDiff("d",Now,FileDate)
' в данном случае возраст файла не больше семи дней
If Abs(Age)>2 Then
DeleteFile(efile)
End If
next
End Sub
|
Вот имеется я его подправил, а спускать боюсь - вдруг всё нах... по удаляет или ....
Как думаешь - не опасен вирус?