Imports ICSharpCode.SharpZipLib.Core
Imports ICSharpCode.SharpZipLib.Zip
 
 
'* Zielzipdatei als Outputstream generieren
      Dim zipdatei As New ZipOutputStream(File.Create(ZielZipdatei))
 
  'Kompression (0 bis 9, wobei 9 die größte Kompression beinhaltet)
      zipdatei.SetLevel(5)
 
          'Datei als Filestream öffnen
          Dim dateistream As FileStream = File.OpenRead(DeineDatei)
 
          'Puffergröße richtet sich nach der Dateigröße
          Dim buffer(dateistream.Length - 1) As Byte
 
 
          'Komplette Datei als Filestream einlesen
          dateistream.Read(buffer, 0, buffer.Length)
 
 '--> Zipeintrag erstellen
          Dim zipeintrag As ZipEntry
 
               zipeintrag = New ZipEntry(IO.Path.GetFileName(DeineDatei))
 
 
               zipeintrag.DateTime = DateTime.Now 'Datum
               zipeintrag.Size = dateistream.Length 'Größe des Eintrages
 
               'Filestream schließen
               dateistream.Close()
 
               'Zeiger auf den nächsten freien Slot zeigen
               zipdatei.PutNextEntry(zipeintrag)
 
               'Datei in das Zipdatei schreiben
               zipdatei.Write(buffer, 0, buffer.Length)
 
                 'Zipdatei schließen
      zipdatei.Finish()
      zipdatei.Close()

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio