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

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