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);
saludos.-