[vb.net] zipfile maken met vjslib

[Verwijderd]

Aangezien whoami mijn topic op slot heeft gepleurd met deze reden 'Iig, aangezien je eerst zelf eerst best debugged, gaat dit topic op slot.' nogmaals hetzelfde topic.
Beetje asociaal van je whoami. en geef dan iig een goeie reden op ipv een vage reden.

Maar goed

Ik heb dus al gedebugged en geconstateerd dat het onderste stukje code het probleem is.
En waarom ik die sharpziplib niet gebruik is omdat daarmee geen bestanden kunnen worden toegevoegd aan een zip bestand.

In een c# projectje wat ik heb liggen werkt het uitstekend op deze manier maar in vb.net loopt hij dus in een endless loop.


hieronder het originele bericht

Ik ben op dit moment bezig met het inpakken van bestanden. Ik heb een perfect werkend voorbeeld gevonden in c# maar wil dit om gaan zetten in vb.net omdat mn hele applicatie vb.net is.

Alles door diverse converters gehaald en vb.net geeft geen meldingen maar er zit een oneindige loop in het verhaal.

Visual Basic .NET:

 zipFileName = "c:\test.zip"
        Dim fos As java.io.FileOutputStream = New java.io.FileOutputStream(zipFileName)
        Dim zos As java.util.zip.ZipOutputStream = New java.util.zip.ZipOutputStream(fos)

        Dim z As Integer
        For z = 1 To aantal_files_for_zip


            Dim sourceFile As String = filename(z).ToString

            Dim fis As java.io.FileInputStream = New java.io.FileInputStream(sourceFile)
            Dim ze As java.util.zip.ZipEntry = New java.util.zip.ZipEntry(sourceFile.Substring(3).Replace("\"c, "/"c))
            zos.putNextEntry(ze)
            Dim buffer(1024) As SByte
            Dim len As Integer
            While (len = fis.read(buffer)) <= 0
                zos.write(buffer, 0, len)
            End While
            zos.closeEntry()
            fis.close()



            lbl_files_count_backupped.Text = z
            txt_debug.Text += filename(z) & vbCrLf
            Application.DoEvents()

                  Next


        zos.close()
        fos.close()

Volgens mij zit het probleem in dit stukje code en heb ook iets gelezen over dat vb.net geen sbyte zou ondersteunen ?
Ik heb naar mijn idee het halve internet uitgespit maar geef blijkbaar niet de goeie steekwoorden in google.

Visual Basic .NET:

      While (len = fis.read(buffer)) <= 0
                zos.write(buffer, 0, len)
            End While

Wie o wie kan mij hiermee uit de brand helpen ?
Alvast bedankt

[BtM909]

Aangezien whoami mijn topic op slot heeft gepleurd met deze reden 'Iig, aangezien je eerst zelf eerst best debugged, gaat dit topic op slot.' nogmaals hetzelfde topic.
Beetje asociaal van je whoami. en geef dan iig een goeie reden op ipv een vage reden.

Hij heeft hem met een reden op slot 'gepleurd'. Ik ga niet eens moeite doen met verwijzen naar de Programming FAQ, lees die maar eens door waar een topic allemaal aan moet voldoen