Foros Club Delphi - Mostrar ficheros de un directorio y subdirectoros

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Mostrar ficheros de un directorio y subdirectoros (https://www.clubdelphi.com/foros/showthread.php?t=62729)

chinchan

10-01-2009 17:26:44

Mostrar ficheros de un directorio y subdirectoros

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

10-01-2009 18:37:10

Mírate este ejemplo:

Código:

//---------------------------------------------------------------------------

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

11-01-2009 15:27:15

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

escafandra

11-01-2009 22:26:49

Cita:

Empezado por chinchan (Mensaje 334154)

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.;)

La franja horaria es GMT +2. Ahora son las 02:02:49.