Здравствуйте, у меня задача, удалять архивные папки (именно папки) из определённой директории (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