Public Sub zip7(ByVal ZipFile As String, ByVal SourceFile As String)
 
        Dim SevenZip As New System.Diagnostics.Process
        SevenZip.EnableRaisingEvents = True
        SevenZip.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
 
        'Pfad zur 7z.exe
        SevenZip.StartInfo.FileName = "C:\Programme\7-Zip\7z.exe"
        'Parameter für die 7z-Konsole
        SevenZip.StartInfo.Arguments = "a " & ZipFile & " " & SourceFile & " -y"
 
        SevenZip.Start()
 
        'Wartet bis 7-Zip fertig ist (=automat. geschlossen wurde)
        SevenZip.WaitForExit()
 
        'ExitCodes von 7-Zip
        If SevenZip.ExitCode > 0 Then
            'zip fehler in:" & ZipFile ...
        End If
 
    End Sub

Joachim