Dim objCrc32 As New Crc32()
            Dim strmZipOutputStream As ZipOutputStream
 
            ZipConstants.DefaultCodePage = 850              'Umlaute richtig 
            ' darstellen
 
            strmZipOutputStream = New ZipOutputStream(File.Create(strZielpfad))
            strmZipOutputStream.SetLevel(9)
            'Compression Level: 0-9
            '0: no(Compression)
            '9: maximum(Compression)
 
            Dim maindir As DirectoryInfo = New DirectoryInfo(strQuellpfad)
            Dim parentPath As String = maindir.ToString
 
            ZipUnterverzeichnisse(strmZipOutputStream, parentPath, _
              strQuellpfad, objCrc32)
            strmZipOutputStream.Finish()
            strmZipOutputStream.Close()