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
|
|||
|
|||
Borrar Ficheros.Extension
Hola he estado mirando en el foro y he encontrado como poder borrar un fichero o como borrar una carpeta, pero quiero borrar todos los ficheros dentro de una carpeta con una extension determinada por ejemplo.
del c:\directorio\*.db Alguna sugerencia. Gracias. |
#2
|
||||
|
||||
Hola,
Algo así tal vez te pueda servir:
Última edición por dec fecha: 13-07-2005 a las 11:43:05. Razón: (ampliación del texto) |
#3
|
|||
|
|||
Da error en la linea
DeleteFile(dir + sr.Name); Incompatible type String and Pchar. cambiamos a Pchar ... deletefile (pchar(dir + sr.name)) Da error en la linea: FindClose(sr); Incompatible type Cardinal and TSearchRec De todas maneras creo que no esta bien enfocado del todo. Gracias. Última edición por serhasae fecha: 12-07-2005 a las 19:49:58. |
#4
|
||||
|
||||
Hola,
El primer error se refiere a lo siguiente: arriba se usa la función "DeleteFile" sita en la unidad "SysUtils", que a su vez llama a una función del mismo nombre esta vez de la unidad "Windows". La primera requiere un parámetro de tipo "string" y la segunda de tipo "PChar". Puedes hacer dos cosas, o esto: ... para utilizar la función de la unidad "Windows" o añadir la unidad "SysUtils" en alguna cláusula "uses". La función de la unidad "Windows" no es "multiplataforma", la de "SysUtils" sí parece serlo: tú decides, en todo caso. Respecto del segundo error... la verdad, no sé qué decirte: a mí me funciona bien incluso en caso de no poderse borrar un determinado archivo, cosa que por otro lado se comprueba antes, e incluso estando completamente vacío el directorio que se pasa como parámetro. Prueba a añadir la unidad "SysUtils" si no lo hiciste ya, de momento no se me ocurre otra cosa que decirte. Última edición por dec fecha: 12-07-2005 a las 19:59:04. Razón: (corrección del texto) |
#5
|
||||
|
||||
Cita:
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#6
|
||||
|
||||
Hola.
Seguramente hay un conflicto de unidades. Según la ayuda de delphi: Cita:
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#7
|
||||
|
||||
Hola,
Gracias Federico. Es exactamente lo que has dicho. No sabía que al cabo también el procedimiento "FindClose" de la unidad "SysUtils" acaba por llamar a uno del mismo nombre en la unidad "Windows". Vale, pues, lo dicho más arriba, a lo que se ve, y es que si se utiliza el procedimiento "FindClose" de la unidad "SysUtils" funcionaría, según parece, también en Linux. Gracias de nuevo Federico. |
#8
|
||||
|
||||
Hola,
Cita:
Me explico. Cuando iba a explicarme me he dado cuenta de algo: tal vez sobre definitivamente el "FileExists" puesto que la función "DeleteFile" no causará problemas en caso de que no exista el supuesto archivo a borrar: comprobado. La intención del "FileExists", sin embargo, era no complicar las cosas con algo así:
... pero, definitivamente, y, como digo, pienso ahora que el "FileExists" sobra en el procedimiento. Gracias jachguate. |
#9
|
|||
|
|||
Gracias chicos, el error era de la sysutils, pero no consigo que me valla.
BorrarArchivos('c:\nuevo','.db'); LLamo a BorrarArchivos y no me borra nada dentro de la carpeta nuevo. ¿ Esta mal la extension?. Sugerencias. gracias. |
#10
|
||||
|
||||
Hola,
Cita:
Actualización: Cita:
Última edición por dec fecha: 13-07-2005 a las 11:45:19. Razón: (actualización) |
#11
|
||||
|
||||
Cita:
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#12
|
|||
|
|||
Gracias a todos, era la barra invertida el fallo. Ya habia probado con *.extension pero como no iba iba probando. Saludos.
El Conocimiento Genera Conocimiento. Alvin Toffler. |
#13
|
||||
|
||||
Hola,
El procedimiento que arriba fue escrito borra los archivos haciendo uso de la función "DeleteFile", pero, siendo esto así, los archivos son borrados "definitivamente". Tal vez sea eso lo que se pretenda, pero, mediante esta función que se halla en cierto truco de TrucoManía es posible borrar los archivos enviándolos a la papelera de reciclaje de Windows. O sea, en este caso, tal vez se pueda elegir. Valga, esto, para cuando no se puede elegir en absoluto. Última edición por dec fecha: 13-07-2005 a las 12:04:43. Razón: (ampliación del texto) |
#14
|
||||
|
||||
Aqui tienes otro juego de funciones para borrar carpetas completas, en tu caso tendrías que cambiar los filtros: Borrar un directorio con contenido
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|