Trouble Zipping Files with VBA

[stevep2]

Hi,

I am trying to use the code provided here:

http://www.rondebruin.nl/windowsxpzip.htm

to get excel to zip some files for me. I included the first bits and am trying to use the sub that zips an entire folder that I specify. It keeps giving me Run-time error though. It says:

Run-time error -2147024894 (80070002)

Method 'Namespace' of Object 'IShellDispatch4' failed

I have been trying to get this to work for a few hours ago and I can't find anything about this. The worst part is, a coworker runs the code with no problems. I have no idea what is causing this error and google is severely letting me down right now.

Any ideas?

 

[stevep2]

Sorry for the double post, but I'm really having trouble with this still. Bump.