Скачать: CL | DM;

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

← →
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

---

← →
ЮЮ ©   (2007-05-24 12:14) [4]

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

---

← →
Garacio ©   (2007-05-24 12:18) [5]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c