syspel Posted January 7, 2016 Report Share Posted January 7, 2016 ola pessoal bom ano 2016 para todos muita saude e paz amiquinho funcao hb_unzipfile do xharbour hb_unzipfile() esta funcao faz o restore do arquivos, faz que fez mais nao restora aonde esta errado ? o win7 32 xharbour 123 fwh2.7 dbf xdev function testecfile=destino+"\rh"+sigla+vano+".zip" exemplo=C:\rh00115.zip if ! file(cfile) msgstop( "Não achei o arquivo", "Aviso" ) aget[1]:setfocus() aget[1]:setpos(1) return .f.endif cSenhazip=" " aExtract:=hb_GetFilesInZip( cFile ) // extract all files in zip IF hb_UnzipFile( cFile, {| cFile | QOut(cFile) },, cSenhaZip, '.\', aExtract ) QOut( "Arquivo foi extraido com sucesso" ) lOk := .T. ENDIF return .t. deste ja obrigado carlos Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 7, 2016 Report Share Posted January 7, 2016 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=30003&p=175748&hilit=hb_UnzipFile#p175748 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24038&p=129404&hilit=hb+unzipfile#p129404 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.