[Dr.DG]

Вот на VBS без рекурсии

Код:

Option Explicit
   
Dim fso
Dim objFolder
Dim strFolder
Dim objFiles
Dim objFile
Dim datDate

On Error Resume Next

'initialize parameters
strFolder = "D:\Folder"
datDate = Now - 7 'one week ago

'set object variables
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(strFolder)
Set objFiles = objFolder.Files

'loop through members of collection
For Each objFile in objFiles
    'do something with file
    Call DeleteOldFile(objFile, datDate)
Next

WScript.Quit Err.Number

Function DeleteOldFile(objFile, datDate)

    'function deletes file which was created date specified and earlier

    If objFile.DateCreated <= datDate Then
        'WScript.Echo objFile.Name & " " & objFile.DateCreated
        objFile.Delete
    End If

End Function