Страница 1 из 1

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

Добавлено: 15 окт 2015, 13:46
kamchatik
Скрипт удаляет все файлы и подпапки дата изменения которых старше заданного количества дней. Скрипт является сценарием 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 - имя вашего файла

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

Добавлено: 15 окт 2015, 13:47
kamchatik
В строчке
if DateDiff("D", subFolder.DateLastModified, Now) > 10 Then

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