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

Тема в разделе "Другие языки", создана пользователем Ernest, 3 окт 2017.

Модераторы: Цукер
  1. Ernest

    Ernest

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

     
  2. aurora2000

    aurora2000 Постоялец

    Регистр.:
    24 авг 2014
    Сообщения:
    75
    Симпатии:
    22
    все просто, вам надо добавить условия для проверки на подпапки
    Код:
      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