September 5, 2008 06:42pm pdt

1. Barthax 18,200
2. robsantos 4,000
3. souseran 3,600
4. sunnycoder 3,500
5. Merete 3,200
6. KCTS 2,900
7. Adam314 2,750
8. zemp1212 2,000
8. mfsamuel 2,000
8. Kutyi 2,000
8. RQuadling 2,000
8. matrixnz 2,000
8. Haddion 2,000
8. Shift-3 2,000
8. rindi 2,000
8. chilternPC 2,000
8. giltjr 2,000
8. arthurjb 2,000
8. jcoehoorn 2,000
8. YellowShoe 2,000
8. Redwulf... 2,000
8. rgautier 2,000
8. torimar 2,000
8. easynow... 2,000
8. dlc110... 2,000
8. jcimarron 2,000
8. Darr247 2,000
8. Addihul 2,000
8. ktl532 2,000
8. zveljkovic 2,000
8. bluefezteam 2,000

1. Barthax 31,088
2. Merete 6,350
3. rindi 5,300
4. SysExpert 5,200
5. KCTS 4,924
6. Adam314 4,750
7. souseran 4,600
8. leew 4,200
9. robsantos 4,000
9. Shift-3 4,000
11. scrathcyboy 3,950
12. b0lsc0tt 3,600
13. sunnycoder 3,500
13. kode99 3,500
15. MASQUE... 3,400
16. AlexNek 3,000
17. farhankazi 2,800
18. Tintin 2,732
19. nodramas 2,200
20. omarfarid 2,010
21. Glenn_M... 2,000
21. skyspirit 2,000
21. xtreme109 2,000
21. dhoffman... 2,000
21. arthurjb 2,000
21. davidwain... 2,000
21. VXDguy 2,000
21. chilternPC 2,000
21. giltjr 2,000
21. arkoak 2,000
21. nayernag... 2,000
21. jcimarron 2,000
21. zemp1212 2,000
21. ktl532 2,000
21. Kutyi 2,000
21. Darr247 2,000
21. qwaletee 2,000
21. Haddion 2,000
21. amit_g 2,000
21. Redwulf... 2,000
21. torimar 2,000
21. rgautier 2,000
21. sirbounty 2,000
21. ilovemyke... 2,000
21. mttyd 2,000
21. PaulHews 2,000
21. RQuadling 2,000
21. dlc110... 2,000
21. roycasella 2,000
21. pegasys 2,000
21. GrahamSkan 2,000
21. matrixnz 2,000
21. easynow... 2,000
21. Addihul 2,000
21. mfsamuel 2,000
21. YellowShoe 2,000
21. zveljkovic 2,000
21. bluefezteam 2,000
21. jcoehoorn 2,000
21. aissim 2,000
21. eoinosullivan 2,000
21. RobSamp... 2,000

03.04.2008 at 08:25AM PST, ID: 23213090

	[x] Attachment Details

Unable to delete zipped files

Asked by kosturdur in File Compression Utilities, Microsoft Visual Basic.Net, .Net Editors & IDEs

Tags: .Net

I'm using SharpZipLib (http://www.icsharpcode.net/OpenSource/SharpZipLib/) library to zip a file(System.IO.Compression is not suit able for files bigger that 4 GB and doesn't support x64).

After zipping the file I couldn't delete it from windows explorer. I'm new to VB so I could miss something.

I'm sending;
Dim A As String = "C:\bck\backup.xxx"
Dim B As String = "C:\zip\backup.zip"
SimpleZip(A, B)

My code is below

Thanks,
Start Free Trial

         
           
             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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

           
           
             Private Sub SimpleZip(ByVal strFileToZip As String, ByVal strZippedFile As String)
 
            Break up the new file location to extract the filename without the path
 
            Dim zipparts() As String = strFileToZip.Split("\"c)
 
            Dim zipfile As String = zipparts(zipparts.Length - 1)
 
            Dim strmZipOutputStream As ZipOutputStream
 
            strmZipOutputStream = New ZipOutputStream(File.Create(strZippedFile))
 
            'strmZipOutputStream.UseZip64 = UseZip64.On
 
            REM Compression Level: 0-9
 
            REM 0: no(Compression)
 
            REM 9: maximum compression
 
            strmZipOutputStream.SetLevel(5)
 
            Dim objZipEntry As ZipEntry = New ZipEntry(Path.GetFileName(strFileToZip))
 
            objZipEntry.DateTime = DateTime.Now
 
            'objZipEntry.Size = strmFile.Length
 
            strmZipOutputStream.PutNextEntry(objZipEntry)
 
            Dim strmFile As FileStream = File.OpenRead(strFileToZip)
 
            Dim abyBuffer(4096) As Byte
 
            Dim sourcebytes As Integer
            sourcebytes = strmFile.Read(abyBuffer, 0, abyBuffer.Length)
 
            While sourcebytes > 0
 
                strmZipOutputStream.Write(abyBuffer, 0, sourcebytes)
 
                sourcebytes = strmFile.Read(abyBuffer, 0, abyBuffer.Length)
            End While
 
 
            objZipEntry = Nothing
 
            strmZipOutputStream.CloseEntry()
 
            strmZipOutputStream.Finish()
 
            strmZipOutputStream.Close()
 
            strmZipOutputStream = Nothing
 
            strmFile.Close()
 
            strmFile = Nothing
        End Sub

           
         

Keywords: Unable to delete zipped files

	Title
1	VB.NET Unzip/Zip utility/class
2	Disadvantages of Opensource
3	Excel File Getting bigger and bigger wit…
4	How to Zip files using VB6
5	Zip Code Radius tools
6	Is it possible to save a zip file to databa…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Unable to delete zipped files

Asked by kosturdur in File Compression Utilities, Microsoft Visual Basic.Net, .Net Editors & IDEs

Tags: .Net

About this solution