Listar ficheros de un directorio y subdirectorios

[ecfisa]

Hola.

Si en Edit1.Text está la ruta, es muy probable que te falte una barra, probá de este modo:

Código Delphi [-]
  ...
 dir := IncludeTrailingPathDelimiter(edit1.Text);  // Incluye delimitador si no existe
 mascara:= '*.*';
 if FindFirst(dir + mascara, faAnyFile, SR) = 0 then
  ...

Saludos.

[Anel Hernandez]

Hola,

pues sigue sin funcionar, solo me lista los del directorio raiz. No entra a los subdirectorios. Edit1.text si incluye \ pero no esta demas asegurarse.

Que hacer para que entre a los subdirectorios?

gracias

[ecfisa]

Hola

pues sigue sin funcionar, solo me lista los del directorio raiz.

En realidad funciona correctamente, es sólo que esa función sirve para listar los archivos y directorios de la ruta designada...

No entra a los subdirectorios.
Que hacer para que entre a los subdirectorios?

Para lo que buscas hacer, revisá este enlace.

Saludos.

[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!