Zip and Mail a DB

[MarionD]

Evening everyone,

I know this is a tall order but perhaps someone can give me some advice.

I’ve just received a request from one of my customers to put “a button on a form” that

1.Makes a copy of the Back end database (from a form in the Front end)
2.Zips this copy and attaches it to an email

I’m afraid I’m in a bit over my head here!

Would really appreciate any help!
Thanks
Marion

 

[scouser]

Try This

[http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=57863

Hope it helps with some of what you are attempting.
Phil

 

[scouser]

& Try This

Try the link below regards the email option:
http://www.microsoft-accesssolutions.co.uk/index.htm
Should help!!
Phil.

 

[MarionD]

Thank you thank you thank you!

Thanks Phil,

Looks like just what I'm looking for - I haven't had time to try it yet, but I'll let you know how it works out.

Thanks again

Marion

 

[MarionD]

Hallo again,

At the risk of sounding really stupid I'm back with another question!

The Code works beautifully up until the line
sWinZip = "C:\Program Files\WinZip\WinZip32.exe" 'Location of the WinZip program

I'm using Windows XP and neither the code line nor I can find the winzip32.exe! Has Microsift hidden it somewhere within XP? From my Sendto menu Zip works fine but how on earth do I start it in VB?

Thanks for the really valueble help!
Marion

 

[ghudson]

sWinZip = "C:\Program Files\WinZip\WinZip32.exe" 'Location of the WinZip program

You have to have WinZip installed. It is not a freebie that comes with Windows. Others have posted that the free "evaluation" version of WinZip works with my BackupAndZipit() function.

www.WinZip.com

HTH

 

[MarionD]

Hi Phil,

There must be some sort of "freebie" as you call it in Windows XP. I do have winzip but when I install it on my XP machine, the "send to Zipped File" from my "Sendto" menu asks to be reinstated as the standard zip. When I uninstall Winzip classic, it works fine again. Now it seems silly to install Winzip, when I can get perfectly good zipped files without it. I need to find out what exe runs behind the "send to Zipped file" from the "sendto" menu.

Thanks

Marion

 

[Mile-O]

You are referring to the Windows own file zipper - Winzip still needs to be installed, I presume, for the code you have.

I believe there is a specific library (cab.dll ?) that deals with this although I don't know anything about it.

 

[MarionD]

Thanks Mile-o

Mmm.... I doubt I can get my client to reinstall Winzip.

Maybe someone in the big wide world knows how to start the XP's own zipper in VB?


Thanks again for the help
Marion

 

[ghudson]

The issue about the Windows XP zipping program came up before in regards to my BackupAndZipit() function. I could not find where the built-in Windows XP zipping program is located for it is well hidden. Bill was too smart to leave it as a simple executable. The only way to access the built-in Windows XP zipping program is to use the right-click "Send To" option.

The built-in Windows XP zipping program might be free but it does not compare to WinZip for those that need to create self-extracting files and also the different zipping options WinZip has. My opinion of course.

If you can even find how to launch the built-in Windows XP zipping program, I doubt that you can programmatically select or batch specific files to zip like WinZip offers. This line of my BackupAndZipit() function [the batch command is the -a] is where you call WinZip and zip the selected file...

Call Shell(sWinZip & " -a " & sZipFile & " " & sFileToZip, vbHide)

You clients should reconsider about installing [the evaluation program] WinZip. You should be able to re-enable the built-in Windows XP zipping program to be the default zipping program just by using the send-to command to zip a file for Windows XP will ask if you want to make built-in Windows XP zipping program the default zipping program for that PC.

But, for where there is a will there is always a way! Post back if you discover how to call the built-in Windows XP zipping program and incorporate it into my BackupAndZipit() function.

Good Luck!

 

[MarionD]

Thanks for the Info!

Will let you know when (positive Thinking) / if (not so positive thinking) I find a way of doing it

Marion