Public Function ExtractZip(ByVal cur_ZipfeilePathAndName As String, ByVal _
      cur_DestinationFolderPath As String) As Boolean
        Dim ReturnValue As Boolean = True
        Dim m_ZipInputStream As java.util.zip.ZipInputStream = New _
          java.util.zip.ZipInputStream(New java.io.FileInputStream( _
          cur_ZipfeilePathAndName))
        Try
            'Hauptverzeichnis überprüfen und ggf. anlegen
            If Not System.IO.Directory.Exists(cur_DestinationFolderPath) Then
                System.IO.Directory.CreateDirectory(cur_DestinationFolderPath)
            End If
            Dim _buffer(iStandardBufferGroesse) As System.SByte
            m_ZipInputStream = New java.util.zip.ZipInputStream(New _
              java.io.FileInputStream(cur_ZipfeilePathAndName))
            Dim ze As java.util.zip.ZipEntry = Nothing
            ze = m_ZipInputStream.getNextEntry()
            While Not IsNothing(ze)
                If Not ze.isDirectory() Then
                    Dim fname As String = ze.getName()
                    '  Dim bstrip As Boolean = True 'IsStrip not nothing and _
                      IsStrip(fname)
                    If Not IsNothing(fname) Then
                        If Not fname = "" Then
                            Dim bytes As Integer = 0
                            Dim filestream As System.IO.FileStream = Nothing
                            Dim w As System.IO.BinaryWriter = Nothing
                            Try
                                Dim filePath As String = _
                                  cur_DestinationFolderPath + "\" + fname
                                'Erstellt das Verzeichniss, wenn es noch nicht 
                                ' vorhanden ist.
                                If InStr(fname, "/") > 0 Then
                                    Dim ffname As String = fname
                                    Do While InStr(ffname, "/") > 0
                                        ffname = ffname.Substring(InStr(ffname, _
                                          "/"))
                                    Loop
                                    Dim fffname As String = ""
                                    fffname = fname.Substring(0, fname.Length - _
                                      ffname.Length - 1)
                                    If fffname <> "" Then
                                        If Not System.IO.Directory.Exists( _
                                          cur_DestinationFolderPath + "\" + _
                                          fffname) Then
                                            System.IO.Directory.CreateDirectory( _
                                            cur_DestinationFolderPath + "\" + _
                                            fffname)
                                        End If
                                    End If
                                End If
                                filestream = New System.IO.FileStream(filePath, _
                                  System.IO.FileMode.Create)
                                w = New System.IO.BinaryWriter(filestream)
                                bytes = m_ZipInputStream.read(_buffer, 0, _
                                  _buffer.Length)
                                While (bytes > 0)
                                    For i As Integer = 0 To bytes - 1
                                        Dim curInteger As Integer = _buffer(i)
                                        If curInteger < 0 Then
                                            curInteger = 256 + curInteger
                                        End If
                                        Dim curByte As Byte = CType(curInteger, _
                                          Byte)
                                        w.Write(curByte)
                                    Next
                                    bytes = m_ZipInputStream.read(_buffer, 0, _
                                      _buffer.Length)
                                End While
                            Catch ex As Exception
                                MsgBox(ex.Message)
                                ReturnValue = False
                                Return ReturnValue
                            Finally
                                m_ZipInputStream.closeEntry()
                                w.Close()
                                filestream.Close()
                            End Try
                        End If
                    End If
                End If
                If ReturnValue = False Then
                    Try
                        m_ZipInputStream.close()
                        Return ReturnValue
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                End If
                ze = m_ZipInputStream.getNextEntry()
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
            ReturnValue = False
        Finally
            If Not IsNothing(m_ZipInputStream) Then
                m_ZipInputStream.close()
            End If
        End Try
        Return ReturnValue
    End Function
End Class