Option Explicit
 
Function ZipIt(ByVal source As String, ByVal target As String)
    Dim s As String
 
    s = "D:\programme\winzip8.1\winzip32 -a "
    Call Shell(s + target + " " + source)
End Function
 
Private Sub Command1_Click()
    Call ZipIt(App.Path + "\projekt1.vbp", App.Path + "\projekt1.zip")
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1