Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.04 c
2-1179944071
User)))
2007-05-23 22:14
2007.06.17
Эквалайзер


15-1179910817
Кевларвестов Семен
2007-05-23 13:00
2007.06.17
Почему-то не устанавливается BDS 2006


1-1177061961
Desdechado
2007-04-20 13:39
2007.06.17
Работа с группами пользователей из Active Directory


15-1179590819
@!!ex
2007-05-19 20:06
2007.06.17
Двойной коннект.


2-1180442761
pathfinder
2007-05-29 16:46
2007.06.17
Наследование от базового класса.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский