Hello!

I need a sample code in Visual Fox Pro 7.0 that return the compression percent that takes the zip that I'm pushing on.

This is my code:

miZip = CREATEOBJECT('XceedSoftware.XceedZip')

* Creamos el fichero ZIP que vamos a generar
miZip.zipFilename = xRuta + xNombreFichero
miZip.EncryptionPassword = "*****"
miZip.ProcessSubfolders = .F.
miZip.BackgroundProcessing = .T.

xnfiles = adir(xafiles,SYS(2003) + "\*.ini")
IF xnfiles <> 0
    * Añade cada uno de los ficheros generados al ZIP
    FOR nCount = 1 TO xnfiles
       miZip.addFilesToProcess(xafiles(nCount,1))
    ENDFOR   
ENDIF

ResultCode = miZip.zip()

Thanks to all, and sorry for my english..

Hi Smartito,

We do not work with Visual FoxPro here at Xceed, however perhaps someone else from the forum community will be able to help you.