Полная очистка директории с нюансами...

[Kerk]

В общем есть папка временная для обмена файлами. Нужна программа, чтобы очищала ее через какое-то время, но нельзя удалять все файлы сразу... Допустим задан интервал в час, то каждый файл попавший в папку должен быть удален через час.
т.е. один файл попал 50мин назад, должен быть удален через 10 мин, другой файл попал 5 мин назад - должен быть удален через 55 мин...

Прога в принципе есть, но удаляет все и сразу. Может кто что подскажет... или напишет сразу .

[Квэнди]

компонент
timer
св-йство
interval
значение
3600000
событие
ontimer

[Kerk]

Сообщение от Квэнди

компонент
timer
св-йство
interval
значение
3600000
событие
ontimer

программист тварь ленивая - думал напишут, а я в код вставлю

[Квэнди]

а что непонятного в фразе ?
кидаешь на форму компонент timer (вкладка systems) выставляешь его свойство Interval в необходимое тебе значение (1000=1сек) и в событие ontimer пишешь то что сейчас делаешь. Этот код у тебя будет соответственно выполняться через каждый заданный тобой интервал времени. Свойство enabled соответственно выставь в true

[Alex21]

2 Квэнди: а зачем таймер на час? требуется то удалять не все файлы.
Таймер на 60000 (1 мин), а дольше проверка всех файлов по дате создания.

[_SERGEYX_]

Как я понимаю, при событии таймера нужно получить все файлы в каталоге, например так:

procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
Затем циклично проверить дату создания файла, например через функцию:

function GetFileDateTime(FileName: string): TDateTime;
var intFileAge: LongInt;
begin
intFileAge := FileAge(FileName);
if intFileAge = -1 then
Result := 0
else
Result := FileDateToDateTime(intFileAge)
end;
..и если дата = и т.д.
А проще использовать ini-файл. Т.е. при создании файла сразу записать строку, где ключ=имя файла, значение=время его удаления. При удалении файла сразу удалять и эту строку.

[Роман Радер]

а можно просто - дата=имя файла

[Kerk]

to_SERGEYX_:
немного не так
файлы в папке не создаются, а туда копируются... FileAge не то выдает .
у меня выходит так - обновляю папку первый раз, заношу имена всех файлов в файл тхт и к именам добавляю текущее время (NOW). а удалить нужно файл через час.
Потом по таймеру опять через 10 сек обновляется список и сравнивается время прошлого обновления с NOW. Файлы для которых прошел уже час удаляются из папки и из списка, а новые файлы которые попали в папку до обновления добавляются в список и им приписывается NOW+1 час... как-то так...

[_SERGEYX_]

Вот по этому адресу
http://www.soft32.ru/delphi.shtml?to...tory_changes_w
лежит статья "Следить за изменениями в каталоге". Наверно, тебе пригодится...

[Virtson]

Сообщение от Kerk

программист тварь ленивая ...

а если дословно прочитать и обидеться ? %)