zip a database for email 3

[punky]

I need to be able to create a button that will zip a
database so the user can email it. Only zipped
databases can be emailed from our systems. I need
the code that will accomplish this zipping for an access
database.

 

[DougP]

WinZIP from

http://www.winzip.com

has some functionality that allows it to be called from Access or VB or ...

here is a link on their web site which may help

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

DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[JoeMiller]

Nice find Doug! Joe Miller
joe.miller@flotech.net

 

[LonnieJohnson]

Yo Doug,
Danke Shun!! B-) ljprodev@yahoo.com
ProDev
MS Access Applications

 

[twinmill]

Try this code on a button in your form, then check to see if the file was created...


Dim strAppName As String
Dim strDbFile As String, strZipFile As String

'WinZip 8.0 by WinZip Computing, Inc. is used here...

strAppName = "C:\Program Files\WinZip\WINZIP32.EXE"

'Add soft or hard coded paths to file variables if needed...

strZipFile = "drive:\path\database.zip"
strDbFile = "drive:\path\database.mdb"

Call Shell(strAppName & " -a " & strZipFile & " " & _
strDbFile, 1)

MsgBox "Your database " & strDbFile & " was zipped as " & _
strZipFile & " and is ready for emailing!"