Скрипт удаления старых папок, подпапок и файлов в них

Выкладываем готовые скрипты. Запрашиваем скрипты.
Ответить
Аватара пользователя
kamchatik
Администратор
Сообщения: 46
Зарегистрирован: 08 окт 2013, 15:26
Откуда: Харьков
Контактная информация:

Скрипт удаления старых папок, подпапок и файлов в них

Сообщение kamchatik » 15 окт 2015, 13:46

Скрипт удаляет все файлы и подпапки дата изменения которых старше заданного количества дней. Скрипт является сценарием WSH (Windows Script Host) и написан на языке VBScript

Т.е. ниже приведенный скрипт сохраняем в файл с расширением .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


Чтобы запустить скрипт могут понадобится права администратора. Для этого запускаем cmd от Администратора. И запускаем командой -

Код: Выделить всё

cscript  c:\filename.vbs

где filename - имя вашего файла

Аватара пользователя
kamchatik
Администратор
Сообщения: 46
Зарегистрирован: 08 окт 2013, 15:26
Откуда: Харьков
Контактная информация:

Re: Скрипт удаления старых папок, подпапок и файлов в них

Сообщение kamchatik » 15 окт 2015, 13:47

В строчке
if DateDiff("D", subFolder.DateLastModified, Now) > 10 Then

Цифру 10 заменяем на нужное вам значение. По умолчанию скрипт удалит все что старше 10 дней.

Ответить