[Сёна]

Всем добрый день!
Подскажите, как можно реализовать поиск в нужном каталоге последнего созданного файла? Имя файла не известно, только расширение (*.xls )

[glaZZ]

Попробуй так:

Код:

procedure TForm1.btnSearchClick(Sender: TObject);
var
  SR: TSearchRec;
  iTime: Integer;
  sResultFile: String;
begin
    if FindFirst('путь к директории с файлами' + '*.xls', faAnyFile, SR) = 0 then
    begin
      repeat
        if SR.Time > iTime then
        begin
          iTime := SR.Time;
          sResultFile := SR.Name;
        end;
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
    ShowMessage(sResultFile);
end;

P.S.: Если нужно получить полный путь к файлу просто добавь имя найденного файла к пути поиска

[Сёна]

Большое спасибо!

[Сёна]

А еще вопросик по этой теме...
Этот вариант когда после изменения содержимого одного из более поздних файлов в этом каталоге, он становиться последним измененным и при следующем поиске находит именно его(измененный), а не последний созданный...
А как сделать, чтобы искал именно последний созданный файл, а не измененный...
Дело в том, что в каталоге хранятся файлы, которые периодически дополняют... А мне нужен именно последний созданный...

[lmikle]

тогда пользуй функцию GetFileTime.
Она умеет возвращать именно дату создания. Только файл придется открыть - GetFileTime требует Handle файла.

[Страдалецъ]

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

тогда пользуй функцию GetFileTime.
Она умеет возвращать именно дату создания. Только файл придется открыть - GetFileTime требует Handle файла.

Это тоже неидеальное решение, скорее всего придется хранить отдельно список файлов интересующего каталога и сравнивать по нему.