FiveTech Software tech support forums

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

Code: Select all

/*
* -------------------------------------------------------------------------*
* -------------------------------------------------------------------------*
*/
FUNCTION Importar()
LOCAL aFiles
LOCAL aExtra    := {""}
LOCAL lStatus
LOCAL nVez  := 0

CursorWait()

aFiles := hb_GetFilesInZip(cZipFile)

FOR nVez := 1 TO LEN(aFiles)
    IF ALLTRIM(cFileExt(aFiles[nVez])) == "ETI"
        AADD(aExtra,aFiles[nVez])
    ENDIF
NEXT

lStatus := hb_UnZipFile(cZipFile,,(.T.),,cDirDest,aExtra,NIL)

IF lStatus
    MsgInfo("El archivo se importó exitosamente !",oApp:cAplicacion)
ENDIF
RETURN (.T.)