Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: CL | DM;

Вниз

Список файлов из указанной папки   Найти похожие ветки 

 
sergg   (2005-06-13 09:30) [0]

Подскажите пожалуйста,
как получить список файлов из указанной папки?


 
NightStranger ©   (2005-06-13 09:49) [1]


procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var  SearchRec : TSearchRec;
begin
if Mask = "" then Mask := "*.*";
if StartDir[Length(StartDir)] <> "\" then StartDir := StartDir + "\";
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin    repeat      Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> faDirectory then List.Add(StartDir + SearchRec.Name)
else if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then
begin        List.Add(StartDir + SearchRec.Name + "\");
ScanDir(StartDir + SearchRec.Name + "\",Mask,List);
end;    until FindNext(SearchRec) <> 0;
FindClose(SearchRec);  end;
end;


 
sergg   (2005-06-13 10:19) [2]

Спасибо



Страницы: 1 вся ветка

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.027 c
4-1115984359
mattis
2005-05-13 15:39
2005.07.11
Каким образом получить список языков установленных в системе?


14-1118379507
DeadMeat
2005-06-10 08:58
2005.07.11
Прикольные головоломки


14-1118599120
cyborg
2005-06-12 21:58
2005.07.11
Удалённый доступ к файлам в виндовс ХР


3-1117441868
Yurisimus
2005-05-30 12:31
2005.07.11
Сохранение файла *.xls как *.dbf и создание индекса...


1-1117615963
Griffon
2005-06-01 12:52
2005.07.11
Как записать массив в память