Code To Run WinZip?

[Jim]

I all, I have a database on a user's network drive with the following
path:

E:\NewDB\StatsData.mdb

I want to create a small "Utilities" database that the user can launch
which will run WinZip on the file StatsData.mdb and then eMail it to
me.

I can get WinZip to launch by using the Shell command as follows:

Dim RetVal
RetVal = Shell("C:\Program Files\WinZip\WINZIP32.EXE", 1)

....but how do I then get it to zip the StatsData.mdb file and eMail it
to me? Anybody have an idea?

[Gord]

http://www.winzip.com/downcl.htm

[Danny J. Lesandrini]

I've got some code at my site for zipping/unzipping from Access. It's not
mine, but it is in the public domain and it's a start.
http://amazecreations.com/datafast/daaug.aspx

Look for a link to Zip - Unzip files
--

Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com/datafast/

"Jim" <jl*******@gmail.com> wrote

I all, I have a database on a user's network drive with the following
path:

E:\NewDB\StatsData.mdb

I want to create a small "Utilities" database that the user can launch
which will run WinZip on the file StatsData.mdb and then eMail it to
me.

I can get WinZip to launch by using the Shell command as follows:

Dim RetVal
RetVal = Shell("C:\Program Files\WinZip\WINZIP32.EXE", 1)

...but how do I then get it to zip the StatsData.mdb file and eMail it
to me? Anybody have an idea?