ComradG
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
intDays = Int(Wscript.arguments.Item(0))
strFldr = Wscript.arguments.Item(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
DelOld strFldr, intDays
Function DelOld(sFldr, iDays)
Dim oD, cF, cD, oI
Set oD = objFSO.GetFolder(sFldr)
Set cF = oD.Files
Set cD = oD.SubFolders
For Each oI In cF
If DateDiff("d", oI.DateLastModified, Now) > iDays Then
WScript.Echo oI.Path
oI.Attributes = 0
oI.Delete
End If
Next
For Each oI In cD
DelOld oI.Path, iDays
If oI.Size = 0 Then
oI.Attributes = 0
oI.Delete
End If
Next
End Function
'Пример использования (запускается из батника)
cscript //nologo delfolder.vbs 7 C:\Archive_* |
Всего записей: 2038 | Зарегистр. 05-07-2008 | Отправлено: 20:06 05-08-2010 | Исправлено: ComradG, 20:08 05-08-2010 |
|
