amigos estoy comprimiendo algo en .zip, y quero que me guarde en una ruta especifica en este caso disco local c en una carpeta llamada seguridad , tambien quiero que con el nombre que me guarde me coloque una fecha y la hora, eso es para que no me sobre escriba el archivoy me haga la copia de cada dia o cada vez que desse sea diferente.
funciones globales
en on show
mil gracias....
funciones globales
lastUpdate = 0;
--funcion global
function MyZipExCallback(path, value, status)
if (status == ZipEx.GENERAL) then
-- progreso general
Progress.SetText("ProgressBar", path);
Progress.SetCurrentPos("ProgressBar", value);
elseif (status == ZipEx.COMPRESSING) then
-- comprimiendo o creando el achivo
Label.SetText("CurrentFile", path..", ratio="..value.."% compressed");
elseif (status == ZipEx.ADDING) then
-- cuando se adicionas archivos
Label.SetText("CurrentFile", path..", size="..value.." bytes");
end
end
-- ruta de salida
ZipOutputFolder = _DesktopFolder.."\\zip-output";--SE MODIFICA PARA QUE ME GUARDE EL EL DISCO C EN UNA CARPETA y no en el escritorio
--nombre del .zip
ZipFile = _DesktopFolder.."\\Datos.zip"..System.GetDate(DATE_FMT_EUROPE).." "..System.GetTime(TIME_FMT_AMPM);--sin la hora y fecha funciona perfecto con ella no funciona
--contraseña del .zip
ZipPassword = "3A5UEZqsf8vrS3LLaFrLprmx";
--no tengo ni idea de lo que hace, pero sin esto no funciona bien
ZipExCallback = "MyZipExCallback";
--llama la barra de progreso desde global funciones
function Progress.Reset()
Progress.SetCurrentPos("ProgressBar", 0);
Progress.SetText("ProgressBar", "");
end
--muestra en un label que se esta creando el archivo
Label.SetText("Action", "Creando .Zip");
--ruta de los archivos o archivo
ZipEx.Add(ZipFile, {_SourceFolder.."\\Autoplay\\Docs\\*.db" }, true, ZipEx.AES256, ZipPassword, 9, ZipExCallback, true);
error = Application.GetLastError();
--muestra la ruta desde donde esta creando el .zip
Label.SetText("CurrentFile", "");
--en caso de error
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
--cuando termina de cargar la barra de progreso y ya halla creado el .zip lanza un mensaje
Progress.Reset();
Dialog.Message("Zip", "Creado correctamente !");
end
--salimos de la aplicacion al presionar ok
Application.Exit();
mil gracias....