если имя файла соответствует отображению даты текущей локали:
Код:
strRoot = "C:\Backup"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDIR = objFSO.GetFolder(strRoot)
Set colFiles = objDIR.Files
For Each objFile In colFiles
FileDate = CDate(Left(objFile.Name,10))
If DateDiff("w",FileDate,Now)>0 Then
objFile.Delete
End If
Next
