< 返回技术文档列表

VB.NET中怎么压缩ZIP文件

发布时间:2021-09-01 02:26:03⊙投诉举报

今天就跟大家聊聊有关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文件有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注血鸟云行业资讯频道,感谢大家的支持。


/template/Home/Zkeys/PC/Static