Listar carpetas y subcarpetas

[ecfisa]

Hola darkmir.

Probé el código varias veces anteriormente y nuevamente ahora, esta vez copiando y pegándolo desde el mensaje para descartar cualquier error de transcripción, sigue funcionando sin errores.
Inclusive, a fines de prueba, cree un archivo con el nombre que mencionaste te daba error: "Theme Patcher if not ever made ​​the patches you here" y también otros con los nombres más rebuscados que se me ocurrieron.

No sé que te puede estar sucediendo y sobre los datos que dispongo no logro reproducir el error... Lo único que se me ocurre es que copies y pegues exáctamente el código que estas usando para poder revisarlo.

Saludos

[darkmir]

Hola ecfisa,

el código que estoy utilizando es este:

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
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);
  }
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ListFiles("E:\\", ListBox1->Items);
}

porseacaso te mando estos datos:
- version trial del Embarcadero c++ XE5.
- windows 7 64 bits.

quizás sea la version en la que se compila y ejecuta.

Saludos.

[aguml]

a mi me ha pasado algo similar por ejemplo al aparecer caracteres especiales en el nombrel yo lo solucione combirtiendo el nombre en su nombre corto y luego uso su nombre corto para trabajar aunque sigas mostrando el largo. Tambien me han pasado errores similares cuando el nombre empezaba con un espacio. Si te fijas en el nombre del directorio te aparecen dos signos de interrogacion lo cual me da que pensar que en el nombre hay caracteres que no se pueden interpretar. Yo probaria a modificar el nombre del directorio escribiendolo a mano y poniendole el mismo pero repito, a mano ya que un copy paste lo dejaria igual.

[ecfisa]

Hola darkmir.

Probé el código que publicaste y funciona correctamente.
Seguramente como comentas en tu último mensaje, se trate de alguna diferencia en las versiones, yo estoy usando C++ Builder 6.

De todos modos la idea era sólo poner una opción mas, ya tenes la solución con el código que te sugirió el amigo escafandra.

Saludos

[darkmir]

Hola ecfisa,

Gracias por el código, acabo de instalar builder c++ 6.0,lo probe y funciona correctamente, estuve viendo en otras webs, que hay algunas incompatibilidades de algunos codigos cuando se quiere migrar entre builder c++ 6 y el embarcadero XE 2010 para arriba, aún así ya se tiene una solución de este tema para ambos casos, y los que visiten este tema pueden encontrar su solución para la versión que tengan o deseen.

Saludos.

[ecfisa]

Hola darkmir.

Sería estupendo si pudieras publicar los enlaces que hallaste en tu búsqueda para que otros compañeros los puedan aprovechar.

Por mi parte pude encontrar este: Unicode Migration Resources for Delphi, C++Builder and RAD Studio

Saludos

[[escafandra]]

Pues el problema puede estar en el unicode, para ello se puede probar con las variantes unicode explicitas de la API (FindNextFileW)

Pero también puede estar en este detalle:

Empezado por http://msdn.microsoft.com/en-us/library/windows/desktop/aa364428%28v=vs.85%29.aspx

Note In rare cases or on a heavily loaded system, file attribute information on NTFS file systems may not be current at the time this function is called. To be assured of getting the current NTFS file system file attributes, call the GetFileInformationByHandle function.

Saludos.