http://www.innermedia.com/

>>>Compression and Zip management tools
>>
>>These are built in to Windows. You can use them directly.
>>

lo = CREATEOBJECT("shell.application")
>>lo.NameSpace(target).CopyHere(file, 16 + 1024)	&& Answer yes to all questions, do not display an error message if error

>
>
>Sorry Rick, but IIRC the first time someone mention the use of this trick to compress the files, the copyright owner jumped right away saying that it was a violation of the agreement they had with Microsoft to use it this way. I cannot report you because, first, I do not care and second I forgot the name of the company that has the copyright, but maybe someone with full membership can find the thread, it was like 15 years ago thou! :)