[amel27]

если имя файла соответствует отображению даты текущей локали:

Код:

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

[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

[amel27]

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

значит имя файла не соответствует формату даты, отладочный вариант:

Код:

On Error Resume Next
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 Err.Number<>0 Then
    WScript.Echo "Файл: """ & objFile.Name &""""& vbCRLF & _
      "Дата: """ & Left(objFile.Name,10) &""""& vbCRLF & _
      vbCRLF & Err.Description
    WScript.Quit
  End If
  If DateDiff("w",FileDate,Now)>0 Then
    objFile.Delete
  End If
Next

[KillHunter]

Спасибо.В данном виде всё работает.

[amel27]

скрипты абсолютно одинаковые, но в последнем варианте отключены системные сообщения об ошибках, поэтому лучше найти ошибку