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

[Ernest]

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

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

 

[aurora2000]

все просто, вам надо добавить условия для проверки на подпапки

  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