Скрипт удаления старых логов vbs

Ernest

Гуру форума
Регистрация
25 Сен 2006
Сообщения
270
Реакции
70
Доброго времени суток друзья, есть простейший скрипт, который удаляет файлы логов, созданные(измененные) более 8 суток назад из папки F:\122\Temp, но есть одно но, логи у меня копируются в папки с датой, за каждое число, скрипт папки оставляет и удаляет только логи внутри них, хотелось бы что бы он удалял полностью папки с файлами. Кто может по

 

aurora2000

Постоялец
Регистрация
24 Авг 2014
Сообщения
120
Реакции
42
все просто, вам надо добавить условия для проверки на подпапки
Код:
  if bIncludeSubFolders then
    for each fldr in folder.subfolders
   
       dtlastmodified = null
       on error resume Next
       dtlastmodified = fldr.datelastmodified
       on error goto 0
       if not isnull(dtlastmodified) Then
         if dtlastmodified < vKillDate then
           count = ubound(arFilesToKill) + 1
           redim preserve arFilesToKill(count)
           set arFilesToKill(count) = fldr
         end if
       end if

      SelectFiles fldr.path,vKillDate,arFilesToKill,true
    next
  end if
 
Сверху