Amigos:
Manuel ya había visto tu post, de ahi
tome el ejemplo
Willi, gracias por tu código
Gracias a ambos por sus respuestas las he mirado pero tal vez tengo ceguera de taller
pues no logro el objetivo, pongo mi código que no me funciona por si encuentran mi error.
- Code: Select all Expand view RUN
// Determinamos cuantos y cuales archivos hay en el 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 está dañado !",cAppName) <== Este mensaje no aparece
// Borramos el directorio
lRmDir(cDirGlb)
RETURN(.T.)
ELSE
aFilInDir := Directory(cDirGlb + "*.Xml" )
? Len(aFilInDir) <== Aquí me muestra 0
ENDIF
Muchas gracias por su tiempo