Obtener el Contenido de una unidad (cd o hd), es posible?

[Essato]

Hola, de antemano gracias, espero que me puedan ayudar, el problema es que quiero agregar el contenido de un CD o un disco duro a una db, es decir, una lista de las carpetas/archivos contenidos en la unidad seleccionada, que desplegara algo como:

carpeta1\archivo1.ext
carpeta2\
carpeta2\carpeta2s1\
carpeta2\carpeta2s2\
carpeta2\carpeta2s2\archivo2.ext
archivo3.ext

Que sea recursivo con todos las subcarpetas. Como es posible hacer esto, pero como?, soy nuevo en delphi, se programar en otros lenguajes y la verdad me es algo frustrante que en otros lenguajes es algo tan sencillo (como en php). Alguien que por favor me ayude a encontrar la forma de resolver este problema??

Gracias.

[roman]

Código Delphi [-]
procedure DirList(Path: String; List: TStrings);
var
  SearchRec: TSearchRec;

begin
  Path := IncludeTrailingPathDelimiter(Path);

  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then
  begin
    List.BeginUpdate;

    repeat
      if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      begin
        if (SearchRec.Attr and faDirectory = faDirectory) then
        begin
          List.Add(Path + SearchRec.Name + '\');
          DirList(Path + SearchRec.Name, List);
        end
        else
          List.Add(Path + SearchRec.Name);
      end;
    until FindNext(SearchRec) <> 0;

    List.EndUpdate;
  end;

  FindClose(SearchRec);
end;

Código Delphi [-]
// Uso
DirList('C:\Mis documentos', ListBox1.Items);

No es la forma óptima y si lo ejecutas contra 'C:\' prepárate a esperar un buen rato.

// Saludos

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

Otra opción es que el componente ShellTreeView te haga el trabajo. En la carpeta \Demos\ShellControls\ está éste componente que se instala en la paleta de Samples en Delphi.

Puedes colocar un componente de éstos en un form.
(1) Configuras la propiedad Root con C:\
(2) Ejecutas: ShellTreeView1.FullExpand; para expandir todos los niveles.
(3) Y cuando acabe guardarlo en un fichero con:
ShellTreeView1.SaveToFile('c:\temp\aa.txt');

Una vez en el fichero puedes hacer lo que quieras con él.

[Essato]

Hola, gracias por sus respuestas, probare ambos métodos y ya les dire.