ZIP en VFP

 

 De esta manera podremos comprimir / descomprimir en formato ZIP desde nuestras aplicaciones.

oZip = createobject("MoleZip.ZipFile")
oZip.Create("MoleZip.oZip")
oZip.PackInplace( "Actudat.exe", ; && Nombre del fichero 
                  "Actudat.exe", ; && Nombre del registro en el Zip
                    9 ) && Nivel de compresión (de 0 a 9)

oZip.Close

oZip.Open("MoleZip.oZip")
oLista = oZip.Enumerate()
do while oLista.Next()
oZip.Extract( oLista.value, ; && Nombre del registro en el oZip
                      "_" + oLista.value ) && Nombre del fichero a grabar
enddo
oZip.Close
release oZip

MoleZip es un componente COM/ActiveX freeware y se lo puede descargar de la página:http://molestudio.com/tools/molezip
Nota: Fuente: Revista FoxPress, Octubre de 2003, http://www.fpress.com