удалить файлы старше 2-х мес

[N0rB]

доброго дня.
еще 1 мего вопрос
каким образом можно удалить в папке (допустим сетевой \\Comp_name\Folder ) все файлы старше 2-х месяцев?
ps в поиске не нашел. В справке есть получение даты файла, а вот с перебор не заметил. :-[
код приветствуется

 

[kaster]

#include <Date.au3>
$path = @DocumentsCommonDir; path to folder
$search = FileFindFirstFile($path & '\*.*')
While 1
	$file = FileFindNextFile($search)
	If @error Then ExitLoop
	$aTime = FileGetTime($path & '\' & $file)
	If _DateDiff('D', $aTime[0] & '/' & $aTime[1] & '/' & $aTime[2], _NowCalc()) >= 60 Then FileDelete($path & '\' & $file)
WEnd

Без обработки вложенных папок. Удаляются только те файлы, которые лежат в папке, определенной в переменной $path

 

[N0rB]

Спасибо огромное :IL_AutoIt_1:

 

[kaster]

N0rB
Если вопрос исчерпал себя, не стесняйся отметить тему решенной ;)

 

[YOgen]

А если надо перенести все файлы и папки всех уровней вложения старше тех же 2-х месяцев в папку "На удаление", как это реализовать?

Спасибо, уже не надо - нашел вариант http://autoit-script.ru/index.php/topic,1374.0.html