*To zip file cFileZip = "C:\temp2\D401001F.ZIP" cSource = "c:\temp1\" 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 files cFileZip = "C:\temp\D401001F.ZIP" cDestination = "c:\temp\" o=CREATEOBJECT("shell.application") FOR EACH ofile IN o.NameSpace(cFileZip).items o.NameSpace(cDestination).copyhere(ofile) ENDFOR>I need to incorporate zipping into an app in vfp 9. I have used several things in the past, but wanted feedback on what users have done lately. It has been a while since I had to incorporate this functionality.