Поиск файлов во вложенных папках
Как произвести поиск файлов во вложенных папках?
procedure findfile(s:string); //каталог, откуда начать поиск var SearchRec:TSearchRec; res:integer; //результат поиска (0 или нет) begin res:=FindFirst(s+'*.*',faAnyFile,SearchRec); res:=findNext(SearchRec); While res=0 do begin if (SearchRec.Attr=faDirectory) and ((SearchRec.Name='.')or(SearchRec.Name='..')) then begin Res:=FindNext(SearchRec); Continue; end; if (SearchRec.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней begin findfile(s+SearchRec.Name+'\');//поиск во вложенной папке Res:=FindNext(SearchRec); Continue; end; form1.ListBox1.Items.Add(Sea.Name);//добавляем в Listbox:Tlistbox имя файла Res:=FindNext(SearchRec); end; FindClose(SearchRec); end;
