Рекурсивный поиск файлов в подкаталогах

← →
nikolo (2002-09-17 11:35) [0]

Всем привет! Кто-нибудь может поделиться алгоритмами рекурсивного поиска файлов в подкаталогах?

← →
AFrolov (2002-09-17 11:48) [1]

FindFirst, FindNext - в справке по Delphi
Далее для каждого каталога вызывается процедура поиска вызывается рекурсивно.
в общих чертах это выглядит так:

function findAll(Path:String;Var Files:TStringList):integer;
var
FileInfo://смотри помощь
...
begin
//Устанавливанм критерии поиска
...
FileInfo:=FindFirst(..);
if IsSubFolder(FileInfo) then //Определяем что найденная запись погкаталог
begin
findAll(GetPath(FileInfo),Files)
end else
begin
//Заеосим имя файа в стринглист
end;
Далее используем FindNext проверыяем все файлы в подкаталоге. и действуем с ними аналогично

Рекурсивный поиск файлов в подкаталогах Найти похожие ветки