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