obtener directorios

[quetzal]

hay alguna funcion que te regrese todos los directorios dentro de un directorio, y pues de paso como obtener la lista de archivos en un directorio

Gracias de antemano

[marcoszorrilla]

Mira a ver si te sirve este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(form1.Handle, 'Open', 'C:\', 0, 0, SW_SHOW);
end;

Un Saludo.

[dec]

Hola,

Mira en la ayuda de Delphi por las funciones FindFirst, FindNext y FindClose. También puedes buscar "Finding a file" para más información al respecto.

A continuación algo de código que pueda darte una idea (en la ayuda de las funciones susomentadas encontrarás ejemplos de uso de las mismas).

Código Delphi [-]
     
 function TForm1.ListaDirectorios(directorioPadre: string) : TStringList;
  var
    sr: TSearchRec;
  begin
    Result := TStringList.Create;
    if FindFirst(directorioPadre + '*', faDirectory, sr) = 0 then
    repeat
      if (sr.Attr = faDirectory) then
        Result.Add(directorioPadre + sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  
  function TForm1.ListaArchivos(directorioPadre: string) : TStringList;
  var
    sr: TSearchRec;
  begin
    Result := TStringList.Create;
    if FindFirst(directorioPadre + '*', faAnyFile, sr) = 0 then
      repeat
        if (sr.Attr and faDirectory = 0) or (sr.Name <> '.')
          and (sr.Name <> '..') then
            Result.Add(directorioPadre + sr.Name);
      until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  
     
     // Llamando a las funciones anteriores
 procedure TForm1.Button1Click(Sender: TObject);
  begin
    ListBox1.Items := ListaDirectorios('C:\');
    ListBox2.Items := ListaArchivos('C:\');
  end;

[Neftali [Germán.Estévez]]

También te puede servir (y el código debe ser similar al que ya te han puesto) los trucos 310 y 333 se la sección de trucos del Club Delphi. Ambos sirven para borrar directorios (y todo su contenido); Para ello hacen un recorrido buscando directorios y ficheros dentro de un directorio para luego borrarlos.
El algoritmo es muy similar al tuyo (eliminando la línea de borrar, claro...) así que tal vez te pueda servir de guía.

[quetzal]

bueno las funciones funcionan bien, valgame la redundancion, pero si las utilizo en la unidad C, pero si yo cambio de unidad como la D o la E, u otra unidad, la funcion de los directorios no regresa ningun valor, como podria yo solucionar esto, o porque sucede esto?

gracias de antemano.