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
