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

[holly]

Hi

I have copied your code as below and am still having problems

    Dim P As String
    Dim Z As String
    Dim ZipFileName As String
    Dim MyAppID As String
    
    P = filename
    
    If Not Right(P, 4) = ".zip" Then
        P = P & ".zip"
    Else
        P = P & ".CSV"
    End If
    
    Z = P
    
    Open Z For Output As 1
        Print #1, filename
    Close Z
    
   ' MyAppID = Shell("C:\Program Files\WinZip\Winzip.exe", 1)   ' Run
  '  AppActivate MyAppID ' Activate Microsoft

    MyAppID = CreateObject("shell.application")
[COLOR="Red"]    MyAppID = NameSpace(Z).copyhere & P[/COLOR]

    
    Set MyAppID = Nothing

End Sub

I get an error on this line as it states 'Invalid qualifier'

Pls help!!