FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Listar una unidad completa y guardarla en fichero de texto
Hola
¿Cómo están? Ando buscando código o alguna utilidad de código abierto del tipo: {$APPTYPE CONSOLE}, que se asemeje al tree.com o tree.exe (ms-dios) de windows, para que muestre el contenido en ascii y en forma de raíz de los directorios y ficheros contenidos en una unidad cualquiera, y a ser posible que me lo guarde en un fichero de texto en el lugar del disco duro que yo le indique. Gracias anticipadas |
#2
|
||||
|
||||
Bueno, para listar todos los archivos, te recomiendo las funciones FindFirst, FindNext, FindClose. Busca en la ayuda de Delphi (hasta trae ejemplos de cómo usarlas).
Bueno, he hecho un par de cosas parecidas por ahí, si eso inténtalo y si no te sale, pues miras este post otra vez a ver si he publicado el código Salu2. |
#3
|
||||
|
||||
Bueno, logré esto:
Pero tiene dos fallos. El primero es que al listar los directorios también lista los archivos. El segundo es que, al listar los archivos... ¡también aparecen los directorios! ¿Alguien sabe por qué pasa eso? Salu2. P.D.: También faltaría retocar el código un poco para que el árbol quede más bonito. |
#4
|
|||
|
|||
Echaré un vistazo
Muchas gracias
|
#5
|
||||
|
||||
Cita:
debería ser así:
Y al listar los archivos se muestran los directorios porque tienes faAnyFile que lo muestra todo. Aquí o usas o bien: bueno, o evidentemente
Por cierto, antes de cada impresión en archivo sería mejor comprobar que existe el segundo parámetro por que si se usa el ejecutable sin ese nombre de archivo, imprime en pantalla todos los archivos (y directorios) dos veces. Retocando un poco el código que subiste antes, queda algo así:
|
#6
|
||||
|
||||
Cita:
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 ) |
#7
|
||||
|
||||
Cita:
¿Si no de qué le iba a meter el except / try? En cuanto a lo de la búsqueda por faDirectory, sí, la lógica dice que no debería hacer falta, pero debe ser que el FindNext cambia los atributos de búsqueda o algo así raro, pero sé (empíricamante) que esa línea es necesaria. Saludos. |
#8
|
|||
|
|||
Nuevamente mil gracias a los dos
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Texto en Pantalla Completa | darkerbyte | Gráficos | 3 | 25-04-2007 15:32:43 |
verificar fichero de texto | arley_molina | Varios | 2 | 12-06-2006 20:52:40 |
fichero de texto con tabulaciones | davidgaldo | Varios | 5 | 30-11-2005 16:23:38 |
leer fichero de texto | davidgaldo | Varios | 1 | 08-11-2005 15:05:12 |
Ayuda con fichero de texto | jadelphi | Varios | 4 | 07-10-2004 09:43:14 |
|