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 '判断输出目录的类型是否是一个文件 '如果不是文件的场合