Need to create zip folders

[Eric Penfold]

Using vba form to create Zip folders.
My attempt below using the function code but it says "Argument not optional"?
With this code.

CreateZipFile = (strPath & "\" & strPath & "\" & strFolder & "\" & Int(cmbdata(0).Zip))

Function CreateZipFile(ZipPath As Variant, ZipFileName As Variant)

          Open ZipFileName For Output As #1
          Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
          Close #1
          
          ShellApp.Namespace(ZipFileName).copyhere ShellApp.Namespace(ZipPath).Items
          
          On Error Resume Next
          Do Until ShellApp.Namespace(ZipFileName).Items.Count = ShellApp.Namespace(ZipPath).Items.Count
          Application.Wait (Now + TimeValue("0:00:01"))
          Loop
          On Error GoTo 0

End Function
Private Sub ZipCreator_Click()

    Dim Subpath As String
    Dim cmbdata
    Dim strFolder As String
    Dim strPath As String
    Dim ShellApp As Object
    
    cmbdata = Split(Me.OpenDrawing.Value, "-")
     cmbdata(0) = Replace(cmbdata(0), "-", "")

        Subpath = "S:\R&D\Drawing Nos" & "\" & Sub_Path & ""
         strPath = Subpath & "\" & Int(cmbdata(0))
          strFolder = Dir(strPath, vbDirectory)
          
  CreateZipFile = (strPath & "\" & strPath & "\" & strFolder & "\" & Int(cmbdata(0).Zip))
          
End Sub

 

[NdNoviceHlp]

Hi Eric. Your getting the error because the CreateZipFile function requires 2 arguments ie. CreateZipFile(ArgA as Variant, ArgB as Variant). To invoke this function...

Call CreateZipFile(Folder path to zip, Zip file name/path)

I would suggest that you

msgbox strfolder & "\" & strpath
msgbox strfolder & "\" & Int(cmbdata(0).Zip)

Make sure the folder path and zip file name/path are correct. HTH. Dave

 

[Eric Penfold]

Now says Run-time error 75
on code below

Open ZipFileName For Output As #1

How could i solve this?

 

[NdNoviceHlp]

Make sure the path path exists. Here's some zip stuff.... [SOLVED:] Using Namespace and Objects Dave