Error de Access denied en aplicación de Descompresión de Archivos en Lazarus

[[nlsgarcia]]

javiparera,

Empezado por javiparera

...necesito hacer de alguna manera, es eliminar TODO, osea, la carpeta Zip y todo su contenido...¿existe alguna forma de hacer eso?...

La función DeleteFolder del código propuesto en el Msg #5, borra recursivamente todo el contenido de una carpeta y la carpeta en si misma.

Adicionalmente te sugiero probar la función CopyFiles, esta junto a DeleteFolder son implementadas sin la utilización de APIs de Windows lo que facilita la portabilidad del código.

Espero sea útil

Nelson.

[javiparera]

Pero estoy utilizando la función "DeleteFolder" que me propusiste pero no me está funcionando...el resto funciona re bien pero esta función en particular borra todo lo que sea archivos, pero las carpetas las deja.

[[nlsgarcia]]

javiparera,

Empezado por javiparera

...estoy utilizando la función "DeleteFolder" que me propusiste pero no me está funcionando...borra todo lo que sea archivos, pero las carpetas las deja...

Te comento:

1- La función DeleteFolder, borra recursivamente todo el contenido de una carpeta y la carpeta en si misma.

2- Si la carpeta actual es la carpeta a borrar, DeleteFolder borrara todo su contenido (Archivos y carpetas) recursivamente pero no la carpeta actual en si misma.

Espero sea útil

Nelson.

[javiparera]

Entiendo el funcionamiento de la función DeleteFolder...lo que no entiendo es a que te referís con "la carpeta actual". Lo que hago en sí es crear una carpeta auxiliar donde se descompriman los archivos, se renombren y desde ahí se copien a otra carpeta...
Veamoslo de esta forma...
creo una carpeta parcial, realizo todas las operaciones y luego cuando esta todo listo, copio en la carpeta Final... luego quiero que la carpeta pacial, desaparezca...
¿como podría hacerlo?

[[nlsgarcia]]

javiparera,

Empezado por javiparera

...no entiendo es a que te referís con "la carpeta actual"...

Te comento:

1- La carpeta actual es la que esta definida por defecto en un programa, ya sea por que : Es la carpeta de ejecución de la aplicación, por la función SetCurrentDir o en este caso particular por que esta abierta en el explorador de Windows.

2- Para verificar el funcionamiento de la función DeleteFolder te sugiero : Crear un programa de prueba en el que se borre una carpeta que no cumpla con ninguna de las condiciones del punto 1.

Revisa esta información pertinente a la función DeleteFolder (Es la base de su funcionamiento):

1- DeleteDirectory

2- RemoveDir

Espero sea útil

Nelson.

[javiparera]

Ok...voy a seguir investigando y haciendo pruebas... en principio lo que hice es dejar la carpeta, ya que no se elimina automáticamente, la dejo... lo que hice fue poner una condición. Si el directorio no existe entonces que lo cree y si existe que opere directamente sobre la carpeta y listo...
Lo probé y funciona
Aún así haré un modulo a parte y probaré las funciones.. luego te digo que resulta. jeje
Abrazo grande y Gracias por tu ayuda capo

[[nlsgarcia]]

javiparera,

Empezado por javiparera

...voy a seguir investigando y haciendo pruebas...ya que no se elimina automáticamente...

Empezado por javiparera

...lo que hice fue poner una condición. Si el directorio no existe entonces que lo cree...

Te comento :

1- En el Msg #5 hay un link para descargar y probar el código propuesto.

2- En el código propuesto : Todos los directorios se crean de forma automática, no es necesario crearlos previamente.

Revisa esta imagen:



Espero sea útil

Nelson.