Tras muchas horas recorriendome tutoriales y la ayuda de borland consegui que con una
ruta (que yo mismo escribo para facilitarme la vida) de la carpeta elejida,me escriba en un fichero los nombres de los ficheros de dicha carpeta.
El único problema es que solo me escribe 20 y yo tengo como 40 ficheros en esa carpeta,a así que no se lo que falla aún.
Me seguiré buscando la vida, pero por si a alguien le interesa o tiene un problema similar aqui va el código:
void __fastcall TfrmMain::CrearClick(TObject *Sender)
{
ofstream outfile("Listado_Peliculas.txt");//creo el fichero
String ruta_f;
TSearchRec sr;//para poder utilizar FindFirst,FindNext
int iAttributes=faAnyFile;//el tipo de fichero a buscar
ruta_f="F:\\patatin\\patatan\\*";//las barras y el comodín final importante
if (FindFirst(ruta_f,iAttributes,sr)==0)//buscar los ficheros en la ruta elegida con
//esos atributos,si es asi devuelve 0
{
do
{
String NomArchivos;
NomArchivos=sr.Name;//recojo el nombre del primer fichero
outfile << "*" << NomArchivos.c_str()<< endl;
//lo escribo en el .txt pasando
//con el método c_str() la variable a una cadena c( ya que si no da error-pide
//AnsiString
(FindNext(sr)==0);//siguiente fichero
}
while (FindNext(sr)==0);//mientras existan ficheros en la carpeta
FindClose(sr);//cierro la búsqueda
outfile.close();//cierro el fichero creado
}
}
No pretendo que se me ayude para que me indiquen porque me escribe solo una parte de los ficheros de la carpeta.Simplemente va dirigido a quien lo necesite.
