Компонент для работы с файлами

← →
Алексей (2004-06-18 15:08) [0]

Помогите, пожалуйста! Нужен компонент для поиска файлов с нужным расширением.

← →
Fay © (2004-06-18 15:15) [1]

FindFirstFile

← →
Andy BitOff © (2004-06-18 15:15) [2]

Функция FindFirst + F1

← →
Алексей (2004-06-18 15:16) [3]

Спасибо!

← →
lena19 (2004-06-18 15:22) [4]

привожу пример Анатолия надеюсь он не обидется!!!!!!

Как получить список файлов со всеми подкаталогами (04.03.02 18:15)

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;

Пример вызова, параметры
1. имя папки
2. маска, по умолчанию *.*
3. хранилище для резульатат,
любой наследник от TString, например TStringList

procedure TForm1.Button1Click(Sender: TObject);
begin ListBox1.Items.Clear;
ScanDir("c:","",ListBox1.Items);
Label1.Caption := IntToStr(ListBox1.Items.Count);end;

С уважением
Анатолий Подгорецкий

> привожу пример Анатолия надеюсь он не обидется!!!!!!

Если не ошибаюсь, у него на сайте и компонент соотвествующий есть. А вообще, практически такой же пример приведен в справке.

В ru.delphi FAQ есть более четкий пример, именно с нужным расширением, пример от ЮЗ. Тут важно понимать что хочешь сделать.

Компонент для работы с файлами Найти похожие ветки