Подскажите как удалить каталоги старше 15ти дней

[mayro]

Добрый день!

Подскажите как вывести список каталогов в определенном каталоге, узнать их дату создания и удалить те которые старше 15ти дней вместе с файлами внутри?

 

[InnI]

#include <File.au3>
#include <Date.au3>

$Path = "D:\Путь\Имя папки\"

$List = _FileListToArray($Path, "*", 2)
If @error Then Exit

For $i = 1 To $List[0]
  $Date = FileGetTime($Path & $List[$i], 1)
  If @error Then ContinueLoop
  If _DateDiff('D', $Date[0] & "/" & $Date[1] & "/" & $Date[2], _NowCalc()) > 15 Then
    ConsoleWrite("Удалить " & $Path & $List[$i] & @CRLF)
    ; FileRecycle($Path & $List[$i])  ; <= удаление в корзину
    ; DirRemove($Path & $List[$i], 1) ; <= удаление без возможности восстановления
  EndIf
Next

 

[mayro]

:laugh: Спасибо все работает!!!!!!!!!