Что нового

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

mayro

Новичок
Сообщения
14
Репутация
0
Добрый день!

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

InnI

AutoIT Гуру
Сообщения
4 456
Репутация
1 207
Код:
#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
 
Автор
M

mayro

Новичок
Сообщения
14
Репутация
0
:laugh: Спасибо все работает!!!!!!!!!
 
Верх