Текущий архив: 2007.01.21;
Скачать: CL | DM;
Вниз
поиск файла Найти похожие ветки
← →
newone (2007-01-04 14:32) [0]подскажите как найти последний файл в каталоге
← →
Calibr © (2007-01-04 14:36) [1]Что значит последний? по алфавиту последний чтоли
← →
newone (2007-01-04 14:47) [2]упорядочивание не важно... нужно получить имя последнего в каталоге (D:\oft\) файла и поместить это имя в переменную f
← →
Calibr © (2007-01-04 14:56) [3]Попробуй вот такой способ, ну на счет последнего все таки я не пойму: в зависимости от сортировки списка последним будет всегда разный файл.
Поясни для чего тебе это нужно.
function TForm1.GetFiles(Folder: string): String;
var
sr: TSearchRec;
s: String;
begin
if FindFirst(Folder + "*.*", faAnyFile, sr) = 0 then
repeat
if (sr.Attr and faDirectory) <> faDirectory then
begin
s := sr.Name;
end;
until FindNext(sr) <> 0;
FindClose(sr);
Result := sr.Name;
end;
Напиши если поможет!
← →
newone (2007-01-04 15:02) [4]спасибо получилось!!!!!!
Страницы: 1 вся ветка
Текущий архив: 2007.01.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.072 c
