VPF::files - Форум программистов

Гость_123

Дата 9.7.2004, 16:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

как посмотреть все файлы в директории у которым уже больше N дней?

dvamaster

Дата 9.7.2004, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

При поиске файлов в структуре TSearchRect есть поле FindDate: TWin32FindDate.

Смотришь там дату, и сравниваешь с текущей.

Дерзай!

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

p0s0l

Дата 9.7.2004, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Хотел написать пример, но в итоге, получилось, то что просили...

Код

procedure TForm1.Button2Click(Sender: TObject);
const N = 5;
var sr : TSearchRec;
begin
  if FindFirst('c:\*.*', faAnyFile, sr) = 0 then
  begin
    repeat
       if ((sr.Attr and faDirectory) = 0) and
          (FileDateToDateTime(sr.Time) < Now-N) then
       ListBox1.Items.Add(sr.Name);
    until FindNext(sr)<>0;
    FindClose(sr);
  end;
end;

Так смотрится, если файл модифицировался более 5 дней назад (N=5), то он заносится в ListBox1...
Если надо смотреть дату создания, то немного другой вариант:

Код

const N = 5;
var
  sr : TSearchRec;
  LocalTime : TFileTime;
  TimeHiLo : integer;
begin
  if FindFirst('c:\*.*', faAnyFile, sr) = 0 then
  begin
    repeat
       FileTimeToLocalFileTime(sr.FindData.ftCreationTime, LocalTime);
       FileTimeToDosDateTime(LocalTime, LongRec(TimeHiLo).Hi, LongRec(TimeHiLo).Lo);
       if ((sr.Attr and faDirectory) = 0) and
          (FileDateToDateTime(TimeHiLo) < Now-N) then
       ListBox1.Items.Add(sr.Name);
    until FindNext(sr)<>0;
    FindClose(sr);
  end;
end;

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »