Toon posts:

[vb.net] zipfile maken met vjslib

Pagina: 1
Acties:
  • 47 views sinds 30-01-2008

Verwijderd

Topicstarter
Goeiemorgen,

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:
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
 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:
1
2
3
      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

[ Voor 0% gewijzigd door Verwijderd op 22-09-2006 09:07 . Reden: Codetags ]


  • whoami
  • Registratie: December 2000
  • Laatst online: 22:55
Oneindige loops kan je oplossen door te debuggen.
Waarom gebruik je trouwens java classes in je VB.NET project ?
Er bestaan .NET classes die voor jou kunnen zippen ook. Zoek eens naar SharpZipLib bv.

Iig, aangezien je eerst zelf eerst best debugged, gaat dit topic op slot.

https://fgheysels.github.io/


Dit topic is gesloten.