利用VB.Net解ZIP文件

最新推荐文章于 2025-09-14 10:14:08 发布

原创

最新推荐文章于 2025-09-14 10:14:08 发布 · 5.3k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #string #integer #buffer #2010 #c

这段代码展示了如何使用VB.Net结合Java.IO库来解压缩ZIP文件。它首先检查ZIP文件是否存在，然后创建所需的输出目录（如果不存在）。接着，通过ZipInputStream逐个处理ZIP文件中的条目，区分文件和文件夹，将文件数据读取到缓冲区并写入到输出目录中。

Imports System.IO Imports java.io 'C:/WINNT/Microsoft.NET/Framework/v2.0.50727/vjslib.dll Imports java.util ''' <summary> ''' 解压（Zip） ''' </summary> ''' <param name="ZipFile">需要解压的ZIP文件</param> ''' <param name="OutputDirectory">输入目录</param> ''' <remarks>2010-01-30</remarks> Private Shared Sub Decompress(ByVal ZipFile As String, ByVal OutputDirectory As String) Dim zipIns As New java.io.File(ZipFile) Dim directoryIns As New java.io.File(OutputDirectory) '判断压缩文件是否存在 '如果不存在的场合，则退出 If zipIns.exists = False Then Return End If zipIns = Nothing '判断输出目录是否是目录 '如果不是目录的场合，再进行其它判断 If directoryIns.isDirectory = False Then '判断输出目录的类型是否是一个文件 '如果不是文件的场合 If directoryIns.isFile = False Then Directory.CreateDirectory(OutputDirectory) '如果输出目录是一个存在的文件的场合，则退出 Else Retur