By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,506 Members | 2,275 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,506 IT Pros & Developers. It's quick & easy.

Code To Run WinZip?

P: n/a
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?

Nov 13 '05 #1
Share this Question
Share on Google+
2 Replies


P: n/a
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?

Nov 13 '05 #3

This discussion thread is closed

Replies have been disabled for this discussion.