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

[[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.

[javiparera]

Genio Nelson...jeje por el momento lo resolví haciendo:

Código Delphi [-]
 if (not DirectoryExists('C:\carpetaZIP')) then
         crearcarpeta(dirdestino)
      else
         dirdestino:='C:\carpetaZIP';

porque el módulo de remover la carpeta no lo puse que se ejecute a través de un botón..sino que lo mando a llamar, que entiendo debe ser lo mismo, entonces me queda de esta manera:

Código Delphi [-]
function DeleteFolder(const DirectoryName:String):Boolean;
begin
  try
     if DirectoryExists(DirectoryName) then
     begin
        DeleteDirectory(DirectoryName,True);
        RemoveDir(DirectoryName);
        Result:=True;
     end
     else
        Result:=False;
  except
     Result:=False;
  end;
end;

y lo mando a llamar así:

Código Delphi [-]
 B:=DeleteFolder(borrardir); // Donde "B" es una variable boolean

saludos.-

[Casimiro Noteví]

Recuerda poner los tags al código fuente, ejemplo:



Gracias