Club Builder

[Gabriel]

Hola, gente, espero que puedan ayudarme con esto, si no, bueno, que se le va a hacer...
Mi idea es hacer un programa al que se le da una unidad (por ejemplo, el disco rígido) y que lea todas las carpetas y vaya listando los archivos que hay dentro de ellas, como si fuera un árbol del explorador, o parecido. Las carpetas y archivos deben quedar ordenados, porque lo que quiero es guardarlos en un archivo, para hacer una base de datos con lo que hay en, por ejemplo, un cd. Mi problema es que puedo leer una carpeta y sus archivos, pero no sé como determinar si es la última carpeta para así volver atrás a otra carpeta que no haya sido leída.
Si alguien entendió que quiero decir (me parece que quedo algo confuso), por favor, denme alguna pista. Ya miré en Internet y en la ayuda de Borland, pero no encuentro.
Lo más probable es que sea un inútil, pero si me quieren ayudar a dejar de serlo, bienvenidos sean.

Gabriel.

[Hola]

yo estoy trabajando en lo mismo y casi tengo acabada una funcion que recibe como parametro un directorio y devuelve las rutas competas de todos los archviso que hay en el y en sus subdirectorios. en cuanto la tenga lista l pogo aqui

[aqui va la funcion]

La siguiente funcion pasa a un Tmemo todos los archivos que hay a partir de un directorio que se le pase como parametro. escribe en el memo la ruta completa de acceso.

void extraerArchivos(AnsiString path)
{
int done;
AnsiString path2=path+'*' ;
TSearchRec sr;
int iAttributes = 0;
iAttributes |= faAnyFile * 1;
done = FindFirst(path2,iAttributes, sr);
while (!done)
{
if ((sr.Name!=".") && (sr.Name!=".."))
{
if ((sr.Attr & faDirectory) > 0)
extraerArchivos(path + sr.Name + "\\");
else Form1->Memo1->Lines->Add(path + sr.Name);
}
done = FindNext(sr);
}
FindClose(sr);

[Gabriel]

Pues, muchas gracias!!! Ahora me pongo a trabajar con la funcion.