Listar una unidad completa y guardarla en fichero de texto

[ixMike]

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 )