Алгоритм поиска...

[Johnson]

Здраствуйте, уважаемые!
Как искать файлы в папке я понял, но никак не могу придумать алгоритм, который выведет полный списов файлов во всех вложенных папках, начиная с ".\Base\"
Посоветуйте, как это лучше сделать?
ЗЫ: в папке Base имеется 2 или 3 папки, в каждой из них по 4-8 вложенных папок, в которых и содержатся нужные файлы. Вот мне какраз и надо получить список этих файлов

[Johnson]

Извиняюсь, уже нашел )

Procedure TCHMain.CreateFullCRCList(s:string);
var SearchRec:TSearchRec;
res:integer;
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
 CreateFullCRCList(s+SearchRec.Name+'\');
 Res:=FindNext(SearchRec);
 Continue;
 end;
Memo3.Lines.Add(s+SearchRec.Name);
Res:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;