Dim zipIStream As ZipInputStream = New ZipInputStream( _
              IO.File.OpenRead(Params(1)))
            Dim theEntry As ZipEntry
            Do While 1
                theEntry = zipIStream.GetNextEntry
                If theEntry Is Nothing Then Exit Do
 
                Dim destinationDirectory As String = UpdatePath
                System.Console.WriteLine("File " + theEntry.Name)
                If theEntry.IsDirectory Then
                    IO.Directory.CreateDirectory(destinationDirectory + _
                      theEntry.Name)
                Else
                    Dim size As Integer = 2048
                    Dim data(size) As Byte
                    Dim fs As IO.FileStream = New IO.FileStream( _
                      destinationDirectory + theEntry.Name, IO.FileMode.Create)
' diese schleife da verstehe ich nicht
                    While (size = zipIStream.Read(data, 0, data.Length)) > 0
                        fs.Write(data, 0, size)
                    End While
' er kommt bei mir nicht zum fs.write und ich verstehe nicht warum nicht
                    fs.Flush()
                    fs.Close()
                End If
            Loop
            zipIStream.Close()