VBS скрипт для удаления папок по дате

Короткий VBS скрипт удаляет папки старше 10 дней в указанной директории. Количество дней можно изменить.

Создайте файл, например, delete_old.vbs с содержимым:

Dim fs, f, f1, fc, sFolder
sFolder = WScript.Arguments(0)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(sFolder)
Set fc = f.SubFolders
For Each f1 in fc
  If datediff("d", f1.DateCreated, now()) > 10 Then
    f1.Delete true
  End If
Next

Скрипт можно вызвать из BAT файла так:

set BackupDir=С:\MySQL\
start /wait %~dp0\delete_old.vbs %BackupDir%