Цитата avfiga:
|
как переделать его так что б он удалял все папки и файлы старше n - дней незнаю »
|
для файлов:
Код:
intDays = Int(Wscript.arguments.Item(0))
strFldr = Wscript.arguments.Item(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDIR = objFSO.GetFolder(strFldr)
Set objCol = objDIR.Files
For Each objItem In objCol
If DateDiff("d", objItem.DateLastModified, Now) > intDays Then objItem.Delete
Next
использование:
Код:
CScript MyScript.VBS 14 C:\TEST
для папок неясно, в смысле с рекурсией?.. приведенный в топике скрипт ищет только в текущей
