Breadcrumbs

[GoodGuy17]

Hello,

Here is the code I am using:

Code: Select all

Private Sub AddToArchive(ByVal zip As Package, ByVal fileToAdd As String)
        Dim uriFileName As String = fileToAdd.Replace(" ", "_")
        Dim zipUri As String = String.Concat("/", IO.Path.GetFileName(uriFileName))
        Dim partUri As New Uri(zipUri, UriKind.Relative)
        Dim contentType As String = Net.Mime.MediaTypeNames.Application.Zip  
        Dim pkgPart As PackagePart = zip.CreatePart(partUri, contentType, CompressionOption.Normal)
        Dim bites As Byte() = File.ReadAllBytes(fileToAdd)
        Dim inf As New FileInfo(zipPath)
        Dim filesize As Integer = inf.Length
        pkgPart.GetStream().Write(bites, filesize, bites.Length)
    End Sub

On the last part of that, I get an error saying, "Buffer of bytes to be written is too small."

I am trying to write a bunch of .class files to a .jar file containing more .class files. When I go and open up the .jar file with 7zip, I notice that all of the .class files that WERE there are now gone.

How can I fix this? Anyone?

~GoodGuy17

[kolega28]

I think you are trying to make a minecraft modder Anyway, if its a .jar don't put byval zip, put byval jar.

[GoodGuy17]

I think you are trying to make a minecraft modder Anyway, if its a .jar don't put byval zip, put byval jar.

Doesn't it work all the same? The files DO make it into the .jar, they're just 0 bytes and all the other files are gone.

[MrAksel]

Replace the last line with

Code: Select all

pkgPart.GetStream().Write(bites, filesize, bites.Length - 1)

Or

Code: Select all

pkgPart.GetStream().Write(bites, 0, bites.Length - 1)

[GoodGuy17]

Replace the last line with

Code: Select all

pkgPart.GetStream().Write(bites, filesize, bites.Length - 1)

Or

Code: Select all

pkgPart.GetStream().Write(bites, 0, bites.Length - 1)

That stopped the error, but it still deleted everything else in the .jar, leaving only a few folders and the .class files we told it to install/inject/import.