Hallo zusammen,
um eine ZIP-file zu packen habe ich folgenden code gefunden:
dieser code funktionier einwandfrei, nur möchte ich ein passwort für die zip über vb2008 erstellen.
weiß einer wie das geht?
Danke für Antworten:
Rahu2000
um eine ZIP-file zu packen habe ich folgenden code gefunden:
VB.NET-Quellcode
- Imports ICSharpCode.SharpZipLib.Core
- Imports ICSharpCode.SharpZipLib.Zip
- Imports System.IO
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- '* Zielzipdatei als Outputstream generieren
- Dim zipdatei As New ZipOutputStream(File.Create("C:\lalalala.zip"))
- 'Kompression (0 bis 9, wobei 9 die größte Kompression beinhaltet)
- zipdatei.SetLevel(5)
- 'Datei als Filestream öffnen
- Dim dateistream As FileStream = File.OpenRead("C:\Test\Neu Bitmap.bmp")
- '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("C:\Test\Neu Bitmap.bmp"))
- 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()
- End Sub
- End Class
dieser code funktionier einwandfrei, nur möchte ich ein passwort für die zip über vb2008 erstellen.
weiß einer wie das geht?
Danke für Antworten:
Rahu2000
)
