mostrar archivos en Label

[andres_89]

Hola que tal, bueno a lo que me referia dando de ejemplo un código que está posteado en la página:

#include <io.h>
#include <dir.h>

void ListFiles(char *Dir, TListBox *LB)
{
  struct _finddata_t fdt;
  long hFile;
  char tmp[MAX_PATH];

  chdir(Dir);
  fdt.attrib = _A_SUBDIR;
  if( (hFile = _findfirst("*.*", &fdt) ) != -1) {
    do {
      if (fdt.attrib == _A_SUBDIR) {
        if (strcmp(fdt.name,".")!= 0 && strcmp(fdt.name,"..") != 0) {
          strcpy(tmp, Dir);
          strcat(tmp, "\\");
          strcat(tmp, fdt.name);
          ListFiles(tmp, LB);
        }
      }
      else
        LB->Items->Add(String(fdt.name));
    } while (_findnext(hFile, &fdt) == 0);
    _findclose(hFile);
  };
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ListFiles("C:\\UNA_CARPETA", ListBox1);
}

en vez que directamente me aparesca todos los nombres de los archivos en un listbox, me vayan apareciendo cada nombre de archivo listado en un label cada 5 segundos, obviamente cada nombre de archivo se sobrepone sobre el anterior.

Así como el siguiente ejemplo:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(Contador <= 10)

     {
      
       Timer1->Enabled = true;       // habilito el Timer1
       Timer1->Interval = 500;

       Label1->Caption = Contador;      // intervalo de tiempo

        
        Contador++;          // aumento el contador en 1
     }
     else

     {
       Timer1->Enabled = false;   // Deshabilito el Timer1
       Contador = 0;      //Pongo el contador a 0
     }

}

el código en si lo que hace, es que al ejecutar el button, en un label vayan apareciendo los numeros del 1 al 10 en un intervalo de 500.

es para hacerlo más dinámico y bonito a los ojos del usuario.

Saludos.