FiveTech Software tech support forums

Muchas gracias Karinha, he quitado la librería del proyecto y el hb_unzipfile funciona bien. Ahora tengo que verificar que todo funciona bien sin esa librería.
Saludos,

José Luis

Mira se ayuda:

https://forums.fivetechsupport.com/view ... 8d#p274193

Regards, saludos.

... de mis programas que consiste en un zip comprimido con contraseña y renombrado. Para descomprimirlo utilizo la siguiente sentencia:

hb_UnzipFile( cExePath + "user.nit", NIL, .F., cPWD, cExePath, "user.lic" )

y dentro del fichero user.lic es donde están los datos del registro. Utilizo ...

... Inc.
Error: Unresolved external '_HB_FUN_HB_GETFILESINZIP' referenced from C:\FWH\LIB\FIVEHX.LIB|OLEFUNCS
Error: Unresolved external '_HB_FUN_HB_UNZIPFILE' referenced from C:\FWH\LIB\FIVEHX.LIB|OLEFUNCS
Error: Unresolved external '_HB_FUN_HB_ZIPFILE' referenced from Z:\SISTEMAS\SIG_WIN\OBJ\ECFAUX ...

Master Antonio:

Hecho, muchas gracias.

Saludos

Estimado Armando,

Esto te da las subcarpetas:
aFilInDir := Directory( cDirGlb + "*.*", "D" )
? Len( aFilInDir ) // dinos que cantidad te aparece aqui

Ahora usa el segundo nombre, que debe ser la carpeta, como path:
aFilInDir := Directory( cDirGlb + aFilInDir[ 2 ] + "\", *.Xml" )
? Len ...

... IF Right( AllTrim( cDestino ), 1 ) != "\"

cDest += "\"

ENDIF

aArq := hb_GetFilesInZip( AllTrim( cOrigem ) )

nTotal := Len( aArq )

hb_UnzipFile( AllTrim( cOrigem ), {| cFile, nPos | eProgresso( cFile, nPos, nTotal ) },,, cDest, aArq )

? "Restore Listo"

ENDIF

RETURN NIL

FUNCTION ...

Amigos:

Encontré el problema, el código es correcto, el problema radica en que los ficheros
a extraer están en una carpeta y la carpeta dentro del ZIP y el código espera que los
ficheros formen el ZIP, espero haberme explicado.

FICHERO.ZIP
|
|-----> 092023 <===== esta es la carpeta (NO SIEMPRE ...

Armando, muestre:


cDirGlb


ó la FUNCTION completa, porfa.

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=33637&start=0

PBACKUP para HARBOUR:

https://mega.nz/file/II9GTBLZ#h4aAe8VgDqbICFsLRu8lXI5xLH-YbTq3Z3ekImYvOFg

Armando: Compila perfecto con HARBOUR para BCC7.60.

Regards ...

Master Antonio:

Gracias por tu respuesta

? cDirGlb <==== C:\AppXmls\092023\

Como ves, ya incluye la última diagonal inversa.

Saludos

Estimado Armando,

Prueba con:

Directory(cDirGlb + "\*.Xml" )

... ZIP
aFilInZip := hb_GetFilesInZip(cPathFile,(.F.))
? aFilInZip <== Aquí me muestra un valor de 1801
// Descomprimimos el archivo ZIP
IF ! hb_UnZipFile( cPathFile,,(.F.),,cDirGlb,aFilInZip,) <== cPathFile es correcto y cDirGlb existe
MsgStop("Falló la descompresión, posiblemente el archivo ZIP ...

Mi estimado

*cFile archivo zip
*cPass password si lo tiene el zip
cFTem := GetEnv("TMP") + "\" ***ruta donde se desziperan los archivos
aFile := HB_GETFILESINZIP( cFile ) ***array con los archivos zipeados
If !HB_UNZIPFILE( cFile, , .t., cPass, cFTem, aFile)
Return(.f.)
EndIf
Return(.t.)

Hola Armando,

No sé si has mirado esto: https://forums.fivetechsupport.com/view ... =unzipfile

El mismo código me funciona también con harbour.

Amigos:

Un ejemplo de hb_UnZipFile con Harbour?, por favor!


IF ! hb_UnZipFile( cPathFile,,(.F.),,cDirGlb,aFilInZip)
MsgStop("Falló la descompresión, posiblemente el archivo ZIP está dañado !",cAppName)
RETURN(.F.)
ENDIF


No me tira error pero el array cDirClb y aFilInZip me los devuelve ...