Как удалить все папки старше 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

Вы можете задать вопрос по статье специалисту.

Повысим уровень надежности работы Вашего оборудования и программного обеспечения.

Помните, что все действия Вы выполняете на свой страх и риск и загрузка неверных данных может повлечь за собой крах системы и потерю информации. Администрация сайта не несет ответственность за Ваши действия.