[amel27]

ags555, вариант на VBS:

Код:

strRoot = "C:\Backup"                ' Путь к каталогу с архивами
strMask = "^(\d{2}\.){2}\d{4}\.zip$" ' Маска имени ZIP-файлов
intWeek = 2                          ' Время хранения файла (в неделях) 

Set objFSO    = CreateObject("Scripting.FileSystemObject")
Set objRegExp = CreateObject("VBScript.RegExp")
Set objRoot   = objFSO.GetFolder(strRoot)
Set colFiles  = objRoot.Files

objRegExp.Pattern = strMask
objRegExp.IgnoreCase = True

For Each objFile In colFiles
   If objRegExp.Test(objFile.Name) And _
     DateDiff("w", objFile.DateLastModified, Date)>=intWeek Then
     objFile.Delete
   End If
Next