Código: Selecionar todos
lWithPath Toggle to create directory if needed
Muito importante informar. Qual é a versão do seu Harbour ?If Hb_UnzipFile('cArquivo.zip', ,.T., ,'C:\', aExtract')
Tentei outras maneiras conforme o manual e não funcionou.
Código: Selecionar todos
Syntax
hb_ZipFile( <cFile>, <cFileToCompress> | <aFiles>, <nLevel>,
<bBlock>, <lOverWrite>, <cPassword>, <lWithPath>, <lWithDrive>,
<pFileProgress> ) → lCompress
lWithPath Toggle to store the path or not
Código: Selecionar todos
#include 'inkey.ch'
Function Backup(cOperacao)
Local cColor, cTela, aDir, aRay, nChoice, aExtract, cPasta
Local cOrigem:='C:\Estoques\Dados\'
Local cDestino:='C:\Backups\Estoques\'
Local cArqZip:=SubStr(Dtos(Date()),3,6) + StrTran(Time(),':','')
HB_DirBuild('C:\Backups\Estoques')
If cOperacao=='Backup'
If Confirma('Confirma o in¡cio do backup?')==1
If LastKey()==K_ESC
Return(.T.)
Else
MensagemRun('Aguarde, efetuando backup...','Begin')
aRay:={}
aDir:=Directory(cOrigem + '*.*', 'D')
cPasta:=Left(cOrigem, Rat('\',cOrigem))
For i = 1 To Len(aDir)
AADD(aRay, cPasta + aDir[i,1] + '\*.DBF')
AADD(aRay, cPasta + aDir[i,1] + '\*.CDX')
Next
HB_ZipFile(cDestino + cArqZip, aRay, 9,,,,.T.,.F.)
MensagemRun('Backup conclu¡do!','End')
EndIf
EndIf
ElseIf cOperacao=='Restore'
If Alert('Aten‡Æo !!!; NÆo prossiga com essa opera‡Æo; sem o devido conhecimento.;Desejas Continuar ?',{'NÆo','Sim'})==2
cColor:=SetColor()
cTela:=SaveScreen(04,19,14,39)
SetColor('N/BG,W+/N')
aDir:=Directory(cDestino + '*.zip')
aRay:={}
For i = 1 To Len(aDir)
Aadd(aRay, aDir[i,1])
Next
Shade(04,19,13,38)
@ 04,20 Say '´ Escolha o zip Ã'
nChoice:=Achoice(06,21,11,36,aRay)
If nChoice <> 0
If Confirma('Confirma o in¡cio da restaura‡Æo?')==1
If LastKey()==K_ESC
SetColor(cColor)
RestScreen(04,19,14,39,cTela)
Return(.T.)
Else
MensagemRun('Aguarde, restaurando o backup...','Begin')
aExtract:=Hb_GetFilesInZip(cDestino + aDir[nChoice,1])
If Hb_UnZipFile('171130.zip',,.T.,,'C:\',aExtract)
MensagemRun('Restaura‡Æo conclu¡da!','End')
Alert('Acesse o sistema novamente...')
Quit
EndIf
EndIf
EndIf
EndIf
SetColor(cColor)
RestScreen(04,19,14,39,cTela)
EndIf
EndIf
Return(.T.)