Как удалить старые файлы?

← →
Garacio © (2007-05-24 11:52) [0]

В каталоге с программой я храню отчёты в txt по дням:
12.05.2007.txt
13.05.2007.txt
14.05.2007.txt
...
Как (при закрытии программы) сделать так, чтобы файлы с датой в названии, на более чем 40 дней отличающиеся от текущей, удалялись?

← →
clickmaker © (2007-05-24 11:59) [1]

FindFirst - FindNext, TSearchRec.Time, DeleteFile()

← →
Garacio © (2007-05-24 12:08) [2]

Ну TSearchRec.Time мне не к чему! - Даты буду брать из названий.

А как даты стравнить? (без времени)

← →
Desdechado © (2007-05-24 12:11) [3]

Date() - StrToDate( имя файла ) > 40

Приобразрвать строку "12.05.2007" в TDateTime (а это уже число, не то что на календаре, а несклько тысяч с хвостиком от одной даты на календаре). Его можно будет сравнивать (вычитатать и складывать) с другим числом, получаемым, например, функцией Date() (Или что ты там используешь, давая файлу столь экзотическое имя)

Спасибо!

Как удалить старые файлы? Найти похожие ветки