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

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

Операционная система заметно «притормаживает»? Установленное программное обеспечение работает некорректно?

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