Pues gracias roman.
Por tus comentarios, pude darme cuenta de dos cosas:
1.- verdaderamente hay algo para en delphi (o el SO o algo) que no incluye todos los archivos. ¿Como me di cuenta? Me di la laboriosa tarea de ver archivo por archivo y me di cuenta que algunas carpetas y archivos no tenian ninguna propiedad marcada (en propiedades). Luego hice un ShowMessage de las propiedades que detectaba delphi (ShowMessage(IntToStr(sr.Attr))) y me arrojaba 128, numero que no consigo obtener incluso si sumo todos los valores que aparecen en SysUtils.
2.- Como no lograba obtener el verdadero valor de cada archivo, y como necesitaba sólo los mp3. Modifique el codigo para que identificara sólo a los mp3, y, cualquier cosa que no fuera mp3, siguiera la recursividad.
es asi que llegue a:
...
repeat
if (sr.Name <> '.') and (sr.Name <> '..') then begin
if LowerCase(ExtractFileExt(sr.name)) <> '.mp3' then
BuscaArchivos(Ruta + '\' + sr.Name,Mask,FileAttrs)
else if LowerCase(ExtractFileExt(sr.name)) = '.mp3' then begin
ListBox1.Items.Add(Ruta + '\' + sr.Name);
ListBox1.Update;
end;
end;
...
Bueno, como experiencia y como tu bien dices, "abrá que investigarle más".
Muchas gracias...
__________________
- Si tienes un problema que tiene solución ¿porque te preocupas?
- Si tienes un problema que no tiene solución ¿porque te preocupas?
|