Hi All,

I need to be able to create a .zip file containing a collection of files and folders. I found this thread, and thought it would be a good start as it seems simple enough. I used the code in post #1, and created a small test project. At the moment, I'm trying to simply zip a file in my project directory by doing this:

Public Sub Main()

Dim bSuccess As Boolean
bSuccess = ShellZip("Test.txt", "Test.zip")
If bSuccess = True Then MsgBox "OK" Else MsgBox "Fail"

End Sub

Although bSuccess = False, a .zip file, "Test.zip" is created, but it's empty. I was expecting it to contain the file "Test.txt".

What am I missing?

John