Скрипт удаления старых папок, подпапок и файлов в них
Добавлено: 15 окт 2015, 13:46
Скрипт удаляет все файлы и подпапки дата изменения которых старше заданного количества дней. Скрипт является сценарием WSH (Windows Script Host) и написан на языке VBScript
Т.е. ниже приведенный скрипт сохраняем в файл с расширением .vbs
Чтобы запустить скрипт могут понадобится права администратора. Для этого запускаем cmd от Администратора. И запускаем командой -
где filename - имя вашего файла
Т.е. ниже приведенный скрипт сохраняем в файл с расширением .vbs
Код: Выделить всё
Option Explicit
Dim FSO, Folder, subFolder
Dim strSource
Dim intErrLevel
strSource = "F:\disk" ' папка содержащая каталоги для проверки
intErrLevel = 0
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(strSource) Then
Set Folder = FSO.GetFolder(strSource)
For Each subFolder In Folder.subFolders
if DateDiff("D", subFolder.DateLastModified, Now) > 10 Then
subFolder.Delete
End If
Next
Else
WScript.Echo "папка " & strSource & " не найдена."
intErrLevel = 1
End If
Set FSO = Nothing
WScript.Quit intErrLevel
Код: Выделить всё
cscript c:\filename.vbs