FiveTech Software tech support forums

Antonio

Un saludo cordial para ti y para el foro

Encontré en el foro Carioca un ejemplo para hacer backup y me parece bien interesante integrarlo al proyecto de aprendizaje en mi programa, de hecho lo integre y no he podido hacerlo funcionar, debo incluir alguna librería para este fin?

Anexo el código:

Function Backup()

local nActual := 0, oDlg, oMeter

aFiles := {"Client.DBF"}
nLen := Len(afiles)

cArchivo:=cGetFile('*.zip',;
"Seleccione un lugar para grabar el Backup",,'.\\',.t.)

If Empty(AllTrim(cArchivo))
Return nil
EndIf


IF File(cArchivo)
FErase(cArchivo)
EndIf

DEFINE DIALOG oDlg FROM 1, 1 TO 12, 44 ;
TITLE "Espere ejecutando La copia de seguridad..."

@ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 135, 12

ACTIVATE DIALOG oDlg CENTERED on Paint;
(If(Hb_ZIPFILE(cArchivo,aFiles,8,;
{|cFile,nPos|nActual:=nPos/nLen*100,;
oMeter:Set( nActual ) }),MsgInfo("Realizando copia de seguridad"),;
MsgInfo("La copia no se puede realizar")),oDlg:End())

Return Nil

O bien existe otra manera para lograrlo

Cordialmente

JAIRO BARBOSA

Jairo,

Ese código usa la función Hb_ZIPFILE() que es propia de xharbour.

Con FW 16 bits puedes usar otras, revisa los ejemplos: samples\TestZip.prg y TestUZip.prg

Antonio Linares wrote:Jairo,

Ese código usa la función Hb_ZIPFILE() que es propia de xharbour.

Con FW 16 bits puedes usar otras, revisa los ejemplos: samples\TestZip.prg y TestUZip.prg

Antonio

Gracias lo revisare he intentare poner en practica

Gracias

Cordialmente

JAIRO BARBOSA