Listar ficheros de un directorio y subdirectorios

[Anel Hernandez]

Eureka! lo logre!

lo comparto para el ke le pueda ser util en el futuro. Ya entendi la recursividad! La habia usado hace años en algunos metodos numericos pero nunca para un proceso de soft.

aki va:

Código Delphi [-]
procedure Rastrear (Dir:string);
var
 SR:TSearchRec;
 mascara: string;
begin
 mascara:='*.*';
 if FindFirst(dir + mascara, faAnyFile, SR) = 0 then begin
     repeat
     if ( (SR.Attr and fadirectory) = fadirectory) then
       begin
         if  (SR.Name <> '.')and (SR.Name <> '..') then
           Rastrear( Dir + SR.Name+'\' );
       end
     else
       begin
         form1.Memo1.Lines.Add (SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 Rastrear(edit1.Text);
end;

[Anel Hernandez]

Hola,

cuando le pongo otra mascara, '*.txt' el procedimiento no se ejecuta si en el primer directorio no hay ningun .txt. Si le cambio la primera condicion a que siga revisando en otros subdirectorios independientemente no encuentre nada, entonces como seria la condicion de parada?

pueden sugerirme cualkier otra variante, gracias!