Add my thanks,

I'll use it...

>thank you very much.
>regards.
>m.qasem
>>No need for third party software with Windows XP
>>
>>
>>
>>Zip files
>>
>>

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

>>
>>
>>
>>>hi all,
>>>
>>>it is possible to make zip.fiel to anyfolder via VFP code.
>>>
>>>thank you.