Resolved - VBA Code to Winzip external File

[westconn1]

the shell object seems to do this quite well

p = "c:\test"
      z = p & "\mytest.zip"
      Open z For Output As 1
          Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
      Close 1
      Set sh = CreateObject("shell.application")
      sh.namespace(z).copyhere p
      Set sh = Nothing

copies all the files in folder test into new zip file in same folder