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

Выкладываем готовые скрипты. Запрашиваем скрипты.

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

Сообщение 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 дней.
Аватар пользователя
kamchatik
Администратор
 
Сообщений: 46
Зарегистрирован: 08 окт 2013, 15:26
Откуда: Харьков


Вернуться в Скрипты

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron