[KillHunter]

если имя файла соответствует отображению даты текущей локали: Код: Код: 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

Выдаёт ошибку несоответствие типа CDate