[zhuk09]

Добрый день!
Подниму старую тему)!
Необходимо для этой части кода

Код:

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

Добавить рекурсивное удаление файлов во всех вложенных папках переменной strFldr
Спасибо!