Listar carpetas y subcarpetas

[ecfisa]

Empezado por 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.

Hola darkmir.

En ese caso estas omitiendo la llamada recursiva por lo que el código va a tener una funcionalidad similar al de tu primer mensaje ( #1 ). Es decir, no va a recorrer el árbol de carpetas y subcarpetas listándote los archivos.

Pero si incluís la línea que llama recursivamente a la función y la profundidad de la búsqueda es enorme provoca el desbordamiento de la pila, por este camino estas en un callejón sin salida. Lo que tenes que hacer es reformular el algoritmo para que funcione de forma iterativa.

En este enlace tenes ejemplos búsqueda sobre un árbol binario de ámbos modos: Árbol binario de búsqueda

Saludos

[darkmir]

Hola ecfisa,

muy interesante lo de arboles y los ejemplo que estan en el link me estan sirviendo de ayuda, no sabia que existia ese metodo.

gracias.

[darkmir]

Hola ecfisa,

Encontre el error del cual no funcionaba la recursividad para lisar archivos, no es por la profundidad (cantidad de carpetas/subcarpetas hasta el nodo) que sea muy grande, ni que se agote la memoria destinada a la pila, es solo con los nombes de las carpetas.

La recursividad esta bien, me lista todos los archivos, lo probe con discos duros de 1 TB , el cual estaba lleno con 870 GB, y me los listo normal, pero si encuentra una carpeta con un nombre extenso , se cuelga y es en donde ya no funciona el programa.

Un ejemplo de nombre de carpeta el cual no lee es

"F:\\Theme Patcher if not ever made ​​the patches you here" ,

al llegar a leer una carpeta asi, se forma un bucle infinito y es ahí donde se agota toda la memoria, pero en base al nombre de la carpeta, sino funcionaria normal, dejo la imagen del error:


Pude arreglarlo con un try{}catch(...){} por el momento, si puedo omitir ese error por otro método lo posteare para mejorar el código.

Saludos.

[[escafandra]]

Yo no le veo nada raro al código para que de un error con nombres largos. La Constante MAX_PATH debe valer 260. Los nombres más largos admitidos por NTFS es de 256 incluido todo el PATH, quizás el error viene por este lado.

Yo suelo usar sin problemas funciones recursivas para listar archivos como la que publiqué aquí hace unos años.

Saludos.

[darkmir]

Empezado por escafandra

Yo no le veo nada raro al código para que de un error con nombres largos. La Constante MAX_PATH debe valer 260. Los nombres más largos admitidos por NTFS es de 256 incluido todo el PATH, quizás el error viene por este lado.

Yo suelo usar sin problemas funciones recursivas para listar archivos como la que publiqué aquí hace unos años.

Saludos.

gracias escafandra,

el código que me mandaste, me funciono perfectamente, ya no tuve problemas de cuelgue, bueno creo que este tema con las soluciones brindadas, ya esta solucionado.

Saludos y gracias.

[ecfisa]

Hola.

Me quedó la duda del por qué del error, y según parece lo causa la función ChDir que es la diferencia significativa entre el código de escafandra que funciona correctamente y la segunda opción que te sugerí en el mensaje #2 que da el error. Pero ignoro por qué causa lo provoca, me imagino que no está preparada para soportar los nuevos nombres...

Para sumar opciones, otro modo es:

void ListFiles(String folder, TStrings *TS)
{
  WIN32_FIND_DATA wfd;
  HANDLE hFind;
  DWORD ERR;

  hFind = FindFirstFile(String(folder + "\\*.*").c_str(), &wfd);
  if (hFind != INVALID_HANDLE_VALUE) {
    do {
      if (String(wfd.cFileName) != "." && String(wfd.cFileName) != "..") {
        if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
          ListFiles(String(folder+"\\"+wfd.cFileName), TS);
        else
          TS->Add(String(folder+"\\"+wfd.cFileName));
      }
    } while(FindNextFile(hFind, &wfd));
    FindClose(&wfd);
  }
}

Llamada:

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

Saludos

[darkmir]

Empezado por ecfisa

Hola.

Me quedó la duda del por qué del error, y según parece lo causa la función ChDir que es la diferencia significativa entre el código de escafandra que funciona correctamente y la segunda opción que te sugerí en el mensaje #2 que da el error. Pero ignoro por qué causa lo provoca, me imagino que no está preparada para soportar los nuevos nombres...

Para sumar opciones, otro modo es:

void ListFiles(String folder, TStrings *TS)
{
  WIN32_FIND_DATA wfd;
  HANDLE hFind;
  DWORD ERR;

  hFind = FindFirstFile(String(folder + "\\*.*").c_str(), &wfd);
  if (hFind != INVALID_HANDLE_VALUE) {
    do {
      if (String(wfd.cFileName) != "." && String(wfd.cFileName) != "..") {
        if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
          ListFiles(String(folder+"\\"+wfd.cFileName), TS);
        else
          TS->Add(String(folder+"\\"+wfd.cFileName));
      }
    } while(FindNextFile(hFind, &wfd));
    FindClose(&wfd);
  }
}

Llamada:

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

Saludos

Hola ecfisa,

probe el código pero me manda este error , al escanear cualquier unidad:



algo que ver con la memoria, quizás?

Saludos.