QuickZIP V1.21 源码【学习SharpZipLib的必看！】【以SharpZipLib为基础完成】【VB.Net】

作者：Kation

Imports ICSharpCode.SharpZipLib.Zip

Public Class QuickZIP
    Implements IDisposable

Private _ZIP As ZipFile
    Private _Disposed As Boolean = False

''' <summary>
    ''' 打开ZIP<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>
    ''' </summary>
    ''' <param name="FileName">ZIP<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>地址（没有的会<a href="https://www.jb51.cc/tag/zidong/" target="_blank" class="keywords">自动</a>创建）</param>
    ''' <remarks></remarks>
    Sub New(ByVal FileName As String)
        If IO.File.Exists(FileName) = True Then
            _ZIP = New ZipFile(FileName)
        Else
            _ZIP = ZipFile.Create(FileName)
        End If
    End Sub

''' <summary>
    ''' 实例化QuickZIP，从ZIPFile继承
    ''' </summary>
    ''' <param name="ZIPFile">ZIPFile</param>
    ''' <remarks></remarks>
    Sub New(ByVal ZIPFile As ZipFile)
        _ZIP = ZIPFile
    End Sub

''' <summary>
    ''' 解压缩<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>
    ''' </summary>
    ''' <param name="Name"><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>夹的地址）</param>
    ''' <param name="Directory">解压到的目录</param>
    ''' <remarks></remarks>
    Sub Extract(ByVal Name As String,ByVal Directory As String)
        If _Disposed = False And _ZIP.GetEntry(Name).IsFile Then
            If IO.Directory.Exists(Directory) = False Then
                IO.Directory.CreateDirectory(Directory)
            End If
            Dim File As New IO.FileStream(Directory & "/" & Name,IO.FileMode.CreateNew)
            Dim B As Byte() = FileByte(Name)
            File.Write(B,Len(B))
            File.Close()
            File.Dispose()
            File = Nothing
            B = Nothing
        End If
    End Sub

''' <summary>
    ''' 设置ZIP<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的密码
    ''' </summary>
    ''' <value></value>
    ''' <remarks></remarks>
    WriteOnly Property Password() As String
        Set(ByVal value As String)
            _ZIP.Password = value
        End Set
    End Property

''' <summary>
    ''' <a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>或设置ZIP<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的注释
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Comment() As String
        Get
            If _Disposed = False Then
                Return _ZIP.ZipFileComment
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If _Disposed = False Then
                _ZIP.SetComment(value)
            End If
        End Set
    End Property

''' <summary>
    ''' 解压缩所有<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>夹
    ''' </summary>
    ''' <param name="Directory">解压到的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹</param>
    ''' <remarks></remarks>
    Sub ExtractAll(ByVal Directory As String)
        If _Disposed = False Then
            If IO.Directory.Exists(Directory) = False Then
                IO.Directory.CreateDirectory(Directory)
            End If
            Dim F As New FastZip()
            F.ExtractZip(_ZIP.Name,Directory,"")
            F = Nothing
        End If
    End Sub

''' <summary>
    ''' ZIP<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>数
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property Count() As Integer
        Get
            If _Disposed = False Then
                Return _ZIP.Count
            End If
        End Get
    End Property

''' <summary>
    ''' <a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>ZIPFile
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property ZIPFile() As ZipFile
        Get
            If _Disposed = False Then
                Return _ZIP
            Else
                Return Nothing
            End If
        End Get
    End Property

''' <summary>
    ''' 从ZIP<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>内<a href="https://www.jb51.cc/tag/shanchu/" target="_blank" class="keywords">删除</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>
    ''' </summary>
    ''' <param name="Name"><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名</param>
    ''' <remarks></remarks>
    Sub Del(ByVal Name As String)
        If _Disposed = False Then
            _ZIP.BeginUpdate()
            _ZIP.Delete(_ZIP.GetEntry(Name))
            _ZIP.CommitUpdate()
        End If
    End Sub

''' <summary>
    ''' 向ZIP<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a><a href="https://www.jb51.cc/tag/tianjia/" 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>夹
    ''' </summary>
    ''' <param name="FileName"><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>地址</param>
    ''' <param name="Name">压缩包内使用的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名（可以<a href="https://www.jb51.cc/tag/baokuo/" target="_blank" class="keywords">包括</a>路径）</param>
    ''' <remarks></remarks>
    Sub Add(ByVal FileName As String,ByVal Name As String)
        If _Disposed = False Then
            If IO.File.Exists(FileName) Then
                _ZIP.BeginUpdate()
                _ZIP.Add(FileName,Name)
                _ZIP.CommitUpdate()
            End If
        End If
    End Sub

''' <summary>
    ''' 向ZIP<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a><a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹
    ''' </summary>
    ''' <param name="DirectoryName"><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>夹地址</param>
    ''' <remarks></remarks>
    Sub Add(ByVal DirectoryName As String)
        If _Disposed = False Then
            If IO.Directory.Exists(DirectoryName) Then
                _ZIP.BeginUpdate()
                _ZIP.AddDirectory(DirectoryName)
                _ZIP.CommitUpdate()
            End If
        End If
    End Sub

''' <summary>
    ''' <a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>一个地址是否是<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>
    ''' </summary>
    ''' <param name="Name"><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名</param>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property IsFile(ByVal Name As String) As Boolean
        Get
            If _Disposed = False And (Not _ZIP.GetEntry(Name) Is Nothing) Then
                Return _ZIP.GetEntry(Name).IsFile
            Else
                Return False
            End If
        End Get
    End Property

''' <summary>
    ''' <a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>ZIP<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的MD5码
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property MD5() As String
        Get
            If _Disposed = False Then
                Return MD5CalcFile(_ZIP.Name)
            Else
                Return Nothing
            End If
        End Get
    End Property

''' <summary>
    ''' <a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>ZIP<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>MD5码
    ''' </summary>
    ''' <param name="Name"><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名</param>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    ReadOnly Property MD5(ByVal Name As String) As String
        Get
            If _Disposed = False And _ZIP.GetEntry(Name).IsFile Then
                Dim m As New System.Security.Cryptography.MD5CryptoServiceProvider
                Dim hash() As Byte = m.ComputeHash(FileByte(Name))
                Return GetMd5.ByteArrayToString(hash)
            Else
                Return Nothing
            End If
        End Get
    End Property

''' <summary>
    ''' 直接<a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>ZIP<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>Byte值
    ''' </summary>
    ''' <param name="Name"><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名（可包含目录号“/”）</param>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Default ReadOnly Property FileByte(ByVal Name As String) As Byte()
        Get
            If _Disposed = False Then
                If _ZIP.GetEntry(Name).IsFile Then
                    Dim B(_ZIP.GetEntry(Name).Size) As Byte
                    _ZIP.GetInputStream(_ZIP.GetEntry(Name)).Read(B,_ZIP.GetEntry(Name).Size)
                    Return B
                Else
                    Return Nothing
                End If
            Else
                Return Nothing
            End If
        End Get
    End Property

''' <summary>
    ''' 直接设置ZIP<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>Byte值
    ''' </summary>
    ''' <param name="Name"><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名（可包含目录号“/”）</param>
    ''' <param name="Level">压缩等级（0~99）</param>
    ''' <value></value>
    ''' <remarks></remarks>
    Default WriteOnly Property FileByte(ByVal Name As String,ByVal Level As ICSharpCode.SharpZipLib.Zip.CompressionMethod) As Byte()
        Set(ByVal value As Byte())
            If _Disposed = False Then
                _ZIP.BeginUpdate()
                _ZIP.Add(New ZipStream(New IO.MemoryStream(value)),Name,Level)
                _ZIP.CommitUpdate()
            End If
        End Set
    End Property

''' <summary>
    ''' 释放资源
    ''' </summary>
    ''' <remarks></remarks>
    Sub Dispose() Implements System.IDisposable.Dispose
        _ZIP.Close()
        _ZIP = Nothing
    End Sub
End Class

Module GetMd5
    Public Function MD5CalcFile(ByVal filepath As String) As String

Using reader As New System.IO.FileStream(filepath,IO.FileMode.Open,IO.FileAccess.Read)
            Using md5 As New System.Security.Cryptography.MD5CryptoServiceProvider

Dim hash() As Byte = md5.ComputeHash(reader)
                Return ByteArrayToString(hash)

End Using
        End Using

End Function

Public Function ByteArrayToString(ByVal arrInput() As Byte) As String

Dim sb As New System.Text.StringBuilder(arrInput.Length * 2)

For i As Integer = 0 To arrInput.Length - 1
            sb.Append(arrInput(i).ToString("X2"))
        Next

Return sb.ToString().ToLower

End Function
End Module

此代码，写入过程去掉了一个核心

是我自己写的类，没有这个类，就无法直接从内存写入压缩包

大家可以自己研究，我是看了SharpZipLib的帮助文档后，自己动手创建了这个类的

不懂的可以在此向我询问~哈

QuickZIP V1.2 主题、下载地址：

http://topic.csdn.net/u/20100724/17/aa8c2fa1-debf-4662-859a-4ada5e93ccd9.html

QuickZIP V1.2 帮助文档：

http://blog.csdn.net/ZIP_xG/archive/2010/07/24/5761592.aspx

原文链接：https://www.f2er.com/vb/261841.html

QuickZIP V1.21 源码 【学习SharpZipLib的必看！】【以SharpZipLib为基础完成】【VB.Net】

猜你在找的VB相关文章

QuickZIP V1.21 源码【学习SharpZipLib的必看！】【以SharpZipLib为基础完成】【VB.Net】