VB.NET中怎么壓縮ZIP文件

今天就跟大家聊聊有關VB.NET中怎么壓縮ZIP文件，可能很多人都不太了解，為了讓大家更加了解，小編給大家總結了以下內容，希望大家根據這篇文章可以有所收獲。

VB.NET壓縮ZIP文件代碼示例：

1. Public Function Decompress()
   Function Decompress
   (ByVal algo As String, ByVal 
   data() As Byte) As Byte()  

2. Try  

3. Dim sw As New Stopwatch  

4. '---復制數據(壓縮的)到ms---  

5. Dim ms As New MemoryStream(data)  

6. Dim zipStream As Stream = Nothing 

7. '---開始秒表---  

8. sw.Start()  

9. '---使用存儲在ms中的數據解壓---  

10. If algo = "Gzip" Then  

11. zipStream = New GZipStream(ms, 
    CompressionMode.Decompress)  

12. ElseIf algo = "Deflate" Then  

13. zipStream = New DeflateStream(ms, 
    CompressionMode.Decompress, True)  

14. End If  

15. '---用來存儲解壓的數據---  

16. Dim dc_data() As Byte  

17. '---解壓的數據存儲于zipStream中;   

18. '把它們提取到一個字節數組中---  

19. dc_data = RetrieveBytesFromStream
    (zipStream, data.Length)  

20. '---停止秒表---  

21. sw.Stop()  

22. lblMessage.Text = "Decompression 
    completed. Time spent: " & sw.
    ElapsedMilliseconds & "ms" & _  

23. "， Original size: " & dc_data.Length  

24. Return dc_data  

25. Catch ex As Exception  

26. MsgBox(ex.ToString)  

27. Return Nothing  

28. End Try  

29. End Function  

30. Public Function RetrieveBytes
    FromStream()Function Retrieve
    BytesFromStream( _  

31. ByVal stream As Stream, ByVal 
    bytesblock As Integer) As Byte()  

32. '---從一個流對象中檢索字節---  

33. Dim data() As Byte  

34. Dim totalCount As Integer = 0 

35. Try  

36. While True  

37. '---逐漸地增加數據字節數組-的大小--  

38. ReDim Preserve data(totalCount 
    + bytesblock)  

39. Dim bytesRead As Integer = 
    stream.Read(data, totalCount, bytesblock)  

40. If bytesRead = 0 Then  

41. Exit While  

42. End If  

43. totalCount += bytesRead  

44. End While  

45. '---確保字節數組正確包含提取的字節數---  

46. ReDim Preserve data(totalCount - 1)  

47. Return data  

48. Catch ex As Exception  

49. MsgBox(ex.ToString)  

50. Return Nothing  

51. End Try  

52. End Function 

看完上述內容，你們對VB.NET中怎么壓縮ZIP文件有進一步的了解嗎？如果還想了解更多知識或者相關內容，請關注億速云行業資訊頻道，感謝大家的支持。