| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как удалить старые файлы?
Garacio © (2007-05-24 11:52:00)В каталоге с программой я храню отчёты в txt по дням:
12.05.2007.txt
13.05.2007.txt
14.05.2007.txt
...
Как (при закрытии программы) сделать так, чтобы файлы с датой в названии, на более чем 40 дней отличающиеся от текущей, удалялись?
Garacio (2007-05-24 12:18:00) [1]Спасибо!
ЮЮ (2007-05-24 12:14:00) [2]Приобразрвать строку '12.05.2007' в TDateTime (а это уже число, не то что на календаре, а несклько тысяч с хвостиком от одной даты на календаре). Его можно будет сравнивать (вычитатать и складывать) с другим числом, получаемым, например, функцией Date() (Или что ты там используешь, давая файлу столь экзотическое имя)
Desdechado (2007-05-24 12:11:00) [3]Date() - StrToDate( имя файла ) > 40
Garacio (2007-05-24 12:08:00) [4]Ну TSearchRec.Time мне не к чему! - Даты буду брать из названий.
А как даты стравнить? (без времени)
clickmaker (2007-05-24 11:59:00) [5]FindFirst - FindNext, TSearchRec.Time, DeleteFile()
| |
