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<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a></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) '判断压缩<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>是否存在 '如果不存在的场合，则<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a> If zipIns.exists = False Then Return End If zipIns = Nothing '判断<a href="https://www.jb51.cc/tag/shuchu/" target="_blank" class="keywords">输出</a>目录是否是目录 '如果不是目录的场合，再进行其它判断 If directoryIns.isDirectory = False Then '判断<a href="https://www.jb51.cc/tag/shuchu/" target="_blank" class="keywords">输出</a>目录的类型是否是一个<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> '如果不是<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的场合 If directoryIns.isFile = False Then Directory.CreateDirectory(OutputDirectory) '如果<a href="https://www.jb51.cc/tag/shuchu/" target="_blank" class="keywords">输出</a>目录是一个存在的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的场合，则<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a> Else Return End If End If directoryIns = Nothing Const BUFFER As Integer = 2048 '每次读取<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>数据的大小 Dim fileInput As FileInputStream '<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>流 Dim inputStream As zip.ZipInputStream '输入流 Dim entry As zip.ZipEntry '压缩数据入口实例 Dim outputStream As FileOutputStream '<a href="https://www.jb51.cc/tag/shuchu/" target="_blank" class="keywords">输出</a>流 Dim outputDir As String '<a href="https://www.jb51.cc/tag/shuchu/" target="_blank" class="keywords">输出</a>目录 Dim fileName As String '<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名 Dim folderSeparator As String '<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹分隔符 Dim folderSeparatorInZipFile As String '压缩<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>中的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹分隔符 Dim dataCount As Integer '数据总数 Dim fileData(BUFFER) As SByte '用于存放已读取的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>数据 '取得<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹分隔符 folderSeparator = java.io.File.separator folderSeparatorInZipFile = "/" '判断<a href="https://www.jb51.cc/tag/shuchu/" target="_blank" class="keywords">输出</a>目录是否是一个完整的目录 '如果不是的场合，则编辑 outputDir = OutputDirectory If outputDir.Substring(outputDir.Length - 1,1) <> folderSeparator Then outputDir += folderSeparator End If '初始化压缩<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>输入流 fileInput = New FileInputStream(ZipFile) inputStream = New zip.ZipInputStream(New BufferedInputStream(fileInput)) '循环解压压缩<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>中每个<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> Do '取得下一个压缩数据的入口 entry = inputStream.getNextEntry() If entry Is Nothing Then Exit Do End If '判断当前压缩数据是<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>还是<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹 '如果是<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的场合 If entry.isDirectory = False Then '取得<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名 fileName = entry.getName() fileName = fileName.Substring(fileName.LastIndexOf(folderSeparator) + 1) '如果是<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹的场合 Else '创建新<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹 fileName = entry.getName() fileName = fileName.Replace(folderSeparator,folderSeparatorInZipFile) Directory.CreateDirectory(outputDir + fileName) Continue Do End If outputStream = New java.io.FileOutputStream(outputDir & fileName) '初始化取数据用的变量 Array.Clear(fileData,fileData.Length) dataCount = 0 '循环读取当前需要解压的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>数据 Do '读取<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>数据 dataCount = inputStream.read(fileData,BUFFER) If dataCount = -1 Then Exit Do End If '将已读取的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>数据写入<a href="https://www.jb51.cc/tag/shuchu/" target="_blank" class="keywords">输出</a>目录中 outputStream.write(fileData,dataCount) Loop '<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a><a href="https://www.jb51.cc/tag/shuchu/" target="_blank" class="keywords">输出</a>流 outputStream.flush() outputStream.close() Loop '<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>输入流和<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>流 inputStream.closeEntry() inputStream.close() fileInput.close() End Sub