Thank you Mike.
>>>Is there a VFP tool with source code, free if available that would let me zip files?
>>
>>You don't need any tool for this. You can use Windows zip functions, I'll share code with you which I found a message at this forum years ago.
>
>You mean this?
>
>
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
>
*******************************************************
Save a tree, eat a beaver.
Denis Chassé