Список файлов из указанной папки

← →
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]

Спасибо

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