Obtener carpetas de un directorio
 

Hola como estan?

Veran tengo una duda.
Utulizando la función que puso Darkbyte q es la siguiente

Código Delphi [-]
   
procedure Rastrear (Dir:string);
   var
      FileSearch:  TSearchRec;
   begin
     Screen.Cursor := crHourGlass;
     ChDir ( Dir );
     if FindFirst ( '*.*', faDirectory, FileSearch )=0 then
     repeat
       begin
         //Pon aqui lo que quieras hacer con los ficheros encontrados
         Form1.Memo1.Lines.Add (FileSearch.Name);
       end;
     until FindNext( FileSearch ) <> 0;
     FindClose( FileSearch );
     Screen.Cursor := crDefault;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Rastrear ('C:\');
end;

esta funcion me devuelve todos las carpetas y archivos que hay en un directorio, mi pregunta era como podria hacer para que solo me muestre las carpetas.
gracias

Hola,

Es raro... porque estás indicando que "FindFirst" no te retorne sino directorios, precisamente, con "faDirectory". Pero,... prueba a hacer algo como esto, por si tiene que ver con la "extensión" que se busca:

Código Delphi [-]
procedure Rastrear (Dir:string);
   var
      FileSearch:  TSearchRec;
   begin
     Screen.Cursor := crHourGlass;
     Dir := ExtractFilePath(Dir);
     if FindFirst (Dir + '*', faDirectory, FileSearch )=0 then
     repeat
       begin
         //Pon aqui lo que quieras hacer con los ficheros encontrados
         Form1.Memo1.Lines.Add (FileSearch.Name);
       end;
     until FindNext( FileSearch ) <> 0;
     FindClose( FileSearch );
     Screen.Cursor := crDefault;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Rastrear ('C:\');
end;

Ya dirás qué tal...

Pues no se pero obtengo el mismo resultado con las dos cosas que le has modificado, no se que pasa, me da todo lo q hay en el directorio raiz, en vez de darme solo los directorio...

Hola,

Pues... tiene que haber otra forma más elegante, más aún, estoy seguro de que la hay, pero, no la recuerdo exactamente. Pero, algo así parece funcionar:

Código Delphi [-]
procedure Rastrear (Dir:string);
   var
      FileSearch:  TSearchRec;
   begin
     Screen.Cursor := crHourGlass;
     Dir := ExtractFilePath(Dir);
     if FindFirst (Dir + '*', faDirectory, FileSearch ) = 0 then
     repeat
       begin
         if (FileSearch.Attr = faDirectory) then begin
           //Pon aqui lo que quieras hacer con los ficheros encontrados
           Form1.Memo1.Lines.Add (FileSearch.Name);
         end;
       end;
     until FindNext( FileSearch ) <> 0;
     FindClose( FileSearch );
     Screen.Cursor := crDefault;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Rastrear ('C:\');
end;

Hola dec, pues la verdad no encuentro que has cambiado de la funcion

Hola,

Código Delphi [-]
if (FileSearch.Attr = faDirectory) then begin
  {...}

Joe que tonto estoy, lo podia haber copiado y pegado, pero me gusta mas teclearlo, tb esque tengo ya los ojos cansaillos

Funciona estupendamente Gracias..