Zitat von …•xXCecilXx•…

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Imports ICSharpCode.SharpZipLib.Zip Imports ICSharpCode.SharpZipLib.Core Imports System.IO   Dim parentPath As String   Private Sub btnZip_Click() 'object sender, System.EventArgs e)         Dim s As New ZipOutputStream(File.Create(TextBox2.Text))         s.SetLevel(1)         Dim maindir As New DirectoryInfo(TextBox1.Text)         parentPath = maindir.Parent.FullName + "\"         MessageBox.Show(parentPath)         GoSubdirs(s, TextBox1.Text)         s.Close()     End Sub       Private Sub GoSubdirs(ByVal s As ZipOutputStream, ByVal path As String)         Dim Dir As New DirectoryInfo(path)         For Each subdir In Dir.GetDirectories()             GoSubdirs(s, subdir.FullName)         Next         Dim fi As FileInfo         For Each fi In Dir.GetFiles()             Dim fs As FileStream = File.OpenRead(fi.FullName)             Dim buffer(fs.Length) As Byte             fs.Read(Buffer, 0, Buffer.Length)             Dim entry As New ZipEntry(Dir.FullName.Replace(parentPath, "") + "/" + fi.Name)             entry.Size = fs.Length             fs.Close()             s.PutNextEntry(entry)             s.Write(Buffer, 0, Buffer.Length)         Next     End Sub

Ich habe diesen code nun mal versucht zu verwenden doch leider stoße ich auf ein problem, mir wird folgende meldung wiedergeben beim zippen.

Code :

1	size was 167405, but I expected 167404

Die Zip wurde zwar erstellt, mir wird aber beim öffnen der Zip als fehlermeldung ausgegeben, das das Archiv ein unerwartetes archivende besitzt!

Hat jemand eine Lösung?

Peter86