Рекурсивный поиск файлов в подкаталогах [D5, Win2k]
nikolo © (2002-09-17 11:35:00)
Всем привет! Кто-нибудь может поделиться алгоритмами
рекурсивного поиска файлов в подкаталогах?
AFrolov (2002-09-17 11:48:00) [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 проверыяем все файлы в подкаталоге.
и действуем с ними аналогично
Наверх 
ЧАТ |
Орешник |
|
