Folder compression???

Hi folks,

Can any help me out with this problem?

I need to compress a folder and its contents. This folder has subfolders and files beneath it. All these needs to be compressed.

I am currently using the code library from www.vbaccelerator.com. For those of you who have used it the code snippet is as follows-

Dim m_cZip As New clsZip
With m_cZip
.ZipFile = "D:\zipsample.zip"
.ClearFileSpecs
.BasePath = "D:\TEST"
.AddFileSpec "*.*"
.StoreFolderNames = True
.RecurseSubDirs = True
.Zip
If Not (.Success) Then MsgBox "Error!"
End With
Set m_cZip = Nothing

Well, it does zips, BUT the contents of the App.Path (that is in my case D:\Projects\Compression), and not the intended folder that is "D:\TEST".

Any other code would be welcome.

Thanks in advance.

bump!!!