#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