Как удалить все папки старше 7 дней?

Здравствуйте, у меня задача, удалять архивные папки (именно папки) из определённой директории (D:\backup\), старше 7 дней. Помогите, пожалуйста, скриптом или программой.

Вам необходимо скопировать следующий скрипт в блокнот и сохранить его с расширением vbs

 

set fso = createobject("scripting.filesystemobject")

set dir = fso.GetFolder("d:\backup\")

set ofolders= dir.SubFolders

for each folder in ofolders

  If datediff("d",folder.datelastmodified,Date) > 7 Then

  fso.DeleteFolder folder.path, True

End If

next

Восстановление данных с дисков и флэшек
`

Преимущества нашей компании

Быстрая помощь

Скорый выезд мастера в течении 1 часа. Качественный ремонт.

Обучение

Бесплатная консультация и комментарии в ходе ремонта. Профилактика поломок.

Удаленная поддержка

Подключение через интернет и администрирование Вашего компьютера.