HB_UnZipFile() no me descomprime
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Hola Amigos:
Tengo una opción que viene heredada de xHarbour en la que funcionaba bien pero ahora en Harbour me está dando el siguiente problema:
Cuando descomprimo un archivo desde el programa con HB_UnZipFile() me descomprime todos los archivos que ya tengan la carpeta destino creada pero los que no la tiene no lo hace.
El fuente es muy sencillo y es:
Si alguien puede ayudarme, muchas gracias.
Un saludo
Carlos
Tengo una opción que viene heredada de xHarbour en la que funcionaba bien pero ahora en Harbour me está dando el siguiente problema:
Cuando descomprimo un archivo desde el programa con HB_UnZipFile() me descomprime todos los archivos que ya tengan la carpeta destino creada pero los que no la tiene no lo hace.
El fuente es muy sencillo y es:
- Code: Select all Expand view
cFilZip = hb_CurDrive() + ":\" + CurDir() + "\cyewin\Actu\" + trim(nombre)
aExtract := hb_GetFilesInZip(cFilZip)
Porce = 0
nLen = len(hb_GetFilesInZip(cFilZip))
aDire = hb_CurDrive()+":\"+CurDir()+"\"
DEFINE DIALOG odlgw1 OF oVentPrinc FONT oFont FROM 0,0 TO 10,80 COLOR escri1, fondo1 TITLE "Copiando Archivos" STYLE nOr(WS_POPUP, WS_DLGFRAME)
@ 1, 1 SAY odlgz02 VAR wtex051 + substr(nombre,1,10) OF odlgw1 COLOR escri1, fondo1 FONT oFont SIZE 300,20 CENTER
@ 3, 1 METER odlgz01 VAR porce TOTAL 100 OF odlgw1 SIZE 300,20 COLOR fondo1, escri3 BARCOLOR escri3, fondo1
ACTIVATE DIALOG oDlgw1 CENTERED on Paint(If(HB_UnZipFile(cFilZip,{|cFilZip,nPos|Porce:=nPos/nLen*100,oDlgz01:Set(Porce)},.T.,,aDire,aExtract,nil), va003 = "1", va003 = "2" ),oDlgw1:End())
Si alguien puede ayudarme, muchas gracias.
Un saludo
Carlos