how can i zip a file programatically using VB6?

[Oliver76]

Good day!

I have a simple program using MSAccess as my backend and VB6 on my front. NOw, my probs is that i cant zip my msaccess backend using VB6 coding... pls help... any sample codes? tnx a lot in advance.

oliver

 

[BobRodes]

<May I ask how you've accomplished that ?
Yes, you need to register it. When you have done so, just set a reference to XZip.dll in your VB project. Here's a translation of the first code example on the link you provide from vbScript to VB:

Dim objZip as XStandard.Zip
Set objZip = New XStandard.Zip
objZip.Pack "C:\Temp\golf.jpg", "C:\Temp\images.zip"
objZip.Pack "C:\Temp\racing.gif", "C:\Temp\images.zip"
Set objZip = Nothing

As for redistributing dlls for registry, that has to do with packaging applications for deployment. There are numerous threads on this subject; perhaps it would be best to open a new thread for that part if you need further information after reading up on it.

HTH

Bob