Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Buscar archivos con FindFirst (https://www.clubdelphi.com/foros/showthread.php?t=14690)

eulogi_SCG 28-09-2004 14:54:40

Buscar archivos con FindFirst
 
Hola!

Estoy programando un procedimiento para borrar archivos de un directorio y de de todos sus directorios hijos. Lo que me queda por hacer es que borre solo los archivos con una extension determinada. Estoy utilizando FindFirst de la forma siguiente:

Codigo:

path: Es la ruta del directorio que quiero buscar y eliminar los archivos.
Ficheros: Es el nombre de los ficheros que quiero buscar. P.e. *.txt.
Es aquí donde quiero saber si se pueden pasar mas de un nombre de fichero a la vez.

FindFirst(Path+ficheros, faAnyFile, srInfo);

fin código.

Cuando acabe el programilla lo pegaré.

Un saludo y gracias por adelantado.

delphi.com.ar 28-09-2004 15:12:11

Si te sirve, aquí tienes varias funciones para borrar directorios completos: http://www.clubdelphi.com/foros/showthread.php?t=3663

Simplemente tendrías que cambiar el filtro *.* por el filtro que quieras, y quitar el llamado a RemoveDir para que no borre los directorios.

Saludos!

Neftali [Germán.Estévez] 28-09-2004 15:27:38

Cita:

Empezado por eulogi_SCG
Estoy programando un procedimiento para borrar archivos de un directorio y de de todos sus directorios hijos. Lo que me queda por hacer es que borre solo los archivos con una extension determinada.

Entre los trucos del ClubDelphi hay uno que implementa una función/procedimiento para eliminar todos los ficheros de un directorio y de sus subdirectorios de forma recursiva.
Borra un directorio completo.

Fácilmente es adaptable a lo que tú necesitas cambiando la referencia a *.* que hay en el código por un nuevo parámetro de tipo String que admita y trabaje con cualquier máscara (*.txt, *.log, *.*,...).


La franja horaria es GMT +2. Ahora son las 08:28:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi