[zhuk09]

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

С этим вроде бы справились, для удаления только файлов, удалили строку

Код:

If oI.Size = 0 Then oI.Delete

Сам скрипт выглядит так

Код:

intDays = 1
strFldr = "D:\Work"

Set objFSO = CreateObject("Scripting.FileSystemObject")
DelOld strFldr, intDays

Function DelOld(sFldr, iDays)
On Error Resume Next
   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 oI.Delete
   Next

   For Each oI In cD
      DelOld oI.Path, iDays
      Next
End Function