probé primeramente con
Code: Select all
FUNCTION descomprime()
if hb_UnZipFile("k:\fivehme\prueba\archivo.zip")
? "exito "
else
? "no"
endif
[code]
el resultado es no
y luego
[code] FUNCTION descomprime()
LOCAL oDlg,nFiles,oText, cMsg, oMeter,nActual:=0
LOCAL cFile := cGetfile("archivo(*.zip) |*.zip|","Seleccionar archivo")
LOCAL lval := .t.
LOCAL cDestino := cgetdir()
nFiles:=Len(hb_GetFilesInZip(cFile))
DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere ejecutando recuperación de datos..."
@ 0.5, 2 SAY oText VAR cMsg SIZE 180, 20 OF oDlg
@ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 200, 20
oDlg:bStart:={||lval:= hb_UnZipFile(cFile,{|cFile,nPos|oText:SetText('Descomprimiendo'+CRLF+cFile),;
nActual:=nPos/nFiles*100,oMeter:Set(nActual)},,,cDestino ),;
IF(lval,MsgInfo('Restauracion completada con éxito'+CRLF+CRLF,'Bielsys 2009'),;
MsgStop('No se han podido restaurar los datos')),;
oDlg:END()}
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
El archivo que quiero descomprimir es el creado con la función hb_zipfile. Si uso el winrar los muestra perfectamente
utilizo xharbour 1.21 y bcc582
Gracias por su atención