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.
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.
Wie o wie kan mij hiermee uit de brand helpen ?
Alvast bedankt
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 ]