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

成都創(chuàng)新互聯(lián)公司專業(yè)IDC數(shù)據(jù)服務(wù)器托管提供商，專業(yè)提供成都服務(wù)器托管，服務(wù)器租用，重慶服務(wù)器托管，重慶服務(wù)器托管，成都多線服務(wù)器托管等服務(wù)器托管服務(wù)。

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. '---復(fù)制數(shù)據(jù)(壓縮的)到ms---  

5. Dim ms As New MemoryStream(data)  

6. Dim zipStream As Stream = Nothing 

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

8. sw.Start()  

9. '---使用存儲在ms中的數(shù)據(jù)解壓---  

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. '---用來存儲解壓的數(shù)據(jù)---  

16. Dim dc_data() As Byte  

17. '---解壓的數(shù)據(jù)存儲于zipStream中;   

18. '把它們提取到一個字節(jié)數(shù)組中---  

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. '---從一個流對象中檢索字節(jié)---  

33. Dim data() As Byte  

34. Dim totalCount As Integer = 0 

35. Try  

36. While True  

37. '---逐漸地增加數(shù)據(jù)字節(jié)數(shù)組-的大小--  

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. '---確保字節(jié)數(shù)組正確包含提取的字節(jié)數(shù)---  

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 

看完上述內(nèi)容，你們對VB.NET中怎么壓縮ZIP文件有進一步的了解嗎？如果還想了解更多知識或者相關(guān)內(nèi)容，請關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝大家的支持。

網(wǎng)站欄目：VB.NET中怎么壓縮ZIP文件
標題鏈接：http://www.rwnh.cn/article8/jiship.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站設(shè)計、定制開發(fā)、手機網(wǎng)站建設(shè)、搜索引擎優(yōu)化、Google、虛擬主機

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)