Listar carpetas y subcarpetas

[darkmir]

Hola ecfisa,

estoy amoldando el codigo, pero me lanza un error en una parte, este es el codigo modificado:

  char *Dir = "F:\\" ;
  struct _finddata_t arch;
  long hFile;
  char tmp[MAX_PATH];

  chdir(Dir); //cambio al directorio actual
  arch.attrib = _A_SUBDIR;  //define si el atributo es un directorio
  if( (hFile = _findfirst("*.*", &arch) ) != -1)
    {
      do{
          if (arch.attrib == _A_SUBDIR)
             {
              if (strcmp(arch.name,".")!= 0 && strcmp(arch.name,"..") != 0)
               {
              strcpy(tmp, Dir);
              strcat(tmp, "\\");
              strcat(tmp, arch.name);
               }
             }
          else
            ListBox1->Items->Add(String(arch.name));
        } while (_findnext(hFile, &arch) == 0);
          _findclose(hFile);
     };

me muestra solo los archivos pero no las carpetas, si puedes darme una manito te lo volveria a agradecer.

Saludos.