[AccessD] WindowsXP Zipping Texr Files

You need to purchase Winzip and use the command line utility

s = "C:\Program Files\Winzip\wzzip.exe -a  -ex -ybc Mydatafile.zip " & 
"C:\MyappFolder\Mydatafile.txt"
lPid = Shell(s, vbHide) ' vbNormalFocus)

You can also use the OpenProcess api to check completion

Failing that use the open source zlib from

http://www.zlib.net/


wangoh wrote:

>Hi All!
>
>WindowsXP has the built in capabilities to Zip files.
>Does anyone has the codes to do this with a click on a button within MsAccess.
>I would like to zip C:\MyappFolder\Mydatafile.txt to Mydatafile.zip 
>
>Thanks!
>
>
>wan
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada