Скачать: CL | DM;

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

← →
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 проверыяем все файлы в подкаталоге. и действуем с ними аналогично

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c