Mostrar ficheros de un directorio y subdirectoros

[chinchan]

Hola, ¿Cómo podría poner en un ListBox el nombre de todos los ficheros que contiene un directorio determinado además de los que continenen todos sus subdirectorios?.Gracias

[[escafandra]]

Mírate este ejemplo:

//---------------------------------------------------------------------------
void ListarDir(String dir, TStrings* sl)
{
    TSearchRec sr;
    bool finalizado = FindFirst(dir + "\\*.*", faAnyFile, sr);
    while (!finalizado)
    {
        if(sr.Name != "." && sr.Name != "..")
        {
            if (sr.Attr & faDirectory)
                ListarDir(dir + "\\" + sr.Name, sl);
            else
                sl->Add(dir + "\\" + sr.Name);
        }
        finalizado = FindNext(sr);
    }
    FindClose(sr);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ListarDir("C:\\Downloads", ListBox1->Items);
}

Saludos.

[chinchan]

No lo acabo de enterder del todo bien, pero funciona perfectamente. MUCHAS GRACIAS

[[escafandra]]

Empezado por chinchan

No lo acabo de enterder del todo bien, pero funciona perfectamente. MUCHAS GRACIAS

Si te fijas, es una función que básicamente añade nombres de fichero desde una ruta dada. Cuando encuentra que el nombre es un directorio o carpeta, entonces lo añade al path y se llama así misma, de forma recursiva. De esta forma penetra en todos los subdirectorios...

Saludos.