[amel27]

надо переделать так что б удалял все что есть в папке C:\Test »

Код:

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 oI.Delete
   Next

   For Each oI In cD
      DelOld oI.Path, iDays
      If oI.Size = 0 Then oI.Delete
   Next
End Function

использование:

Код:

CScript MyScript.VBS 14 C:\TEST