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

Вот пример скрипта на PowerShell для удаления всех папок старше 7 дней в папке "d:\backup\".

Вы можете сохранить этот скрипт в формате ".ps1" и запустить его в PowerShell. Он переберет все папки внутри "d:\backup\" и удалит все папки, которые были изменены более 7 дней назад. Обратите внимание, что этот скрипт удаляет папки безвозвратно, будьте осторожны и сохраните важные данные перед запуском.

#Задаем переменную с путем к папке для удаления
$FolderToDelete = "d:\backup\"
 
#Цикл перебирает все папки внутри папки "$FolderToDelete"
Get-ChildItem $FolderToDelete -Recurse | Where-Object { $_.PSIsContainer } |
ForEach-Object {
    #проверяем, была ли папка изменена более 7 дней назад
    if ($_.LastWriteTime -lt (Get-Date).AddDays(-7)) {
        #удаляем всю папку и ее содержимое
        Write-Host "Удаляем:" $_.FullName -ForegroundColor Green
        Remove-Item $_.FullName -Recurse -Force
    }
}