Как "просканировать" каталог на наличие в нем определ. файлов?

← →
Gost (2005-02-08 09:31) [0]

Как "просканировать" каталог (например C:\DOCS) на наличие в нем определ файлов (например *.txt) и "закинуть" имена найденых файлов в список ComboBox"a?
Заранее благодарен.

← →
Александр Иванов © (2005-02-08 09:34) [1]

FindFirst/FindNext

← →
Gost (2005-02-08 09:42) [2]

А с примером можна?

← →
Семенов_ (2005-02-08 11:37) [3]

procedure TForm1.Button1Click(Sender: TObject); var SRec: TSearchRec; begin if FindFirst("C:\DOCS\*.txt",faAnyFile,SRec) <> 0 then Exit; repeat ComboBox1.Items.Add("C:\DOCS\"+SRec.Name); until FindNext(SRec) <> 0; FindClose(SRec); end;

← →
Gost (2005-02-08 12:16) [4]

Большое спасибо, Семенов_!

Как "просканировать" каталог на наличие в нем определ. файлов? Найти похожие ветки