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 |
|