Use Windows's own zip. I got it at this forum from someone.

**** zip *****
cFileZip = "C:\prg\xpzip\dene.ZIP"
cSource = "c:\prg\xpzip"
strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip)
o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cSource).items
   o.NameSpace(cFileZip).copyhere(ofile)
ENDFOR

**** unzip ****
LPARAMETERS cFileZip,cDestination

o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cFileZip).items
    o.NameSpace(cDestination).copyhere(ofile)
ENDFOR

>Is anyone using Craig Boyds "vfpcompression.fll'?
>
>I have one Windows 7 professional workstation that is failing on the "unzipstring" call.
>
>
>other windows 7 prof. work fine, just this one workstation and I am lost as to what could be different.
>
>
> lcCompressString2 = unzipstring(lcCompressString1)
>
>
>The length of the lcCompressString1 is 2,957,129 and the resulting lcCompressString2 is 3,984,807 on those that are working.
>
>Any suggestions or advice to determine what is wrong is greatly appreciated.
>
>Thanks in advance