Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.047 c