Cita:
Empezado por PeterPunk
Al listar los directorios muestra los archivos porque tras encontrar el primer directorio no compruebas que los siguientes archivos que encuentre sean directorios. Vamos que ésta línea:
Código Delphi [-]If not (Info.Name[1]='.') then
debería ser así:
Código Delphi [-] If (not (Info.Name[1]='.')) and ((Info.Attr and faDirectory)<>0) then
|
No tiene mucho sentido, ya que la búsqueda la realizo con faDirectory.
En cuanto a lo de faAnyFile,
, no me había fijado en que también entraban los directorios.
En cuanto a lo de comprobar el segundo parámetro, en fin, también se debería comprobar el primero. Pero, de todas formas, era un código de ejemplo, para que el amigo Rolo lo completara, y pillara el uso de FindFirst, FindNext, FindClose (espero que sí
).
¿Y a qué se debe eso de cambiar "Ruta" por "Folder", "Lista" por "Tree", "Info" por "SearchRec", listar primero los archivos y la condición de mi bucle? El idioma oficial de los foros (y lo pone en la guía de estilo) es el castellano
Salu2, y gracias por las correcciones (Rolo, ya tienes el programa 100% funcional
)