QuickRAR【VB.NET】【解压缩】

VB.NET code

Imports RARNETPublic Class QuickRAR    Private RAR As RARNET.Decompressor    ''' <summary>    ''' 实例化    ''' </summary>    ''' <param name="FileName">文件名</param>    ''' <remarks></remarks>    Sub New(ByVal FileName As String)        RAR = New Decompressor(FileName)    End Sub    ''' <summary>    ''' 实例化    ''' </summary>    ''' <param name="FileName">文件名</param>    ''' <param name="Password">密码</param>    ''' <remarks></remarks>    Sub New(ByVal FileName As String, ByVal Password As String)        RAR = New Decompressor(FileName, Password)    End Sub    ''' <summary>    ''' 解压文件到文件夹    ''' </summary>    ''' <param name="Name">文件名</param>    ''' <param name="Directory">文件夹</param>    ''' <remarks></remarks>    Sub Extract(ByVal Name As String, ByVal Directory As String)        RAR.UnPack(Name, Directory)    End Sub    ''' <summary>    ''' 解压全部文件到文件夹    ''' </summary>    ''' <param name="Directory">文件夹</param>    ''' <remarks></remarks>    Sub ExtractAll(ByVal Directory As String)        RAR.UnPackAll(Directory)    End Sub    ''' <summary>    ''' 测试全部文件    ''' </summary>    ''' <returns></returns>    ''' <remarks></remarks>    Function Test() As Boolean        Return RAR.TestAll    End Function    ''' <summary>    ''' 测试指定文件    ''' </summary>    ''' <param name="Name">文件名</param>    ''' <returns></returns>    ''' <remarks></remarks>    Function Test(ByVal Name As String) As Boolean        Return RAR.TestArchive(Name)    End Function    ''' <summary>    ''' RAR包含文件总数    ''' </summary>    ''' <value></value>    ''' <returns></returns>    ''' <remarks></remarks>    ReadOnly Property Count() As Integer        Get            Return RAR.RARTotalFiles        End Get    End Property    ''' <summary>    ''' 获取文件信息    ''' </summary>    ''' <param name="Name">文件名</param>    ''' <value></value>    ''' <returns></returns>    ''' <remarks></remarks>    ReadOnly Property Entry(ByVal Name As String) As Decompressor.RAREntry        Get            For Each E As Decompressor.RAREntry In RAR.RARFiles                If E.FileName = Name Then Return E            Next            Return Nothing        End Get    End PropertyEnd Class

这个类库只支持解压，并不支持压缩，并且不支持直接从内存进行读取操作

下载地址：
http://download.csdn.net/source/2582277

[解决办法]

[解决办法]
小伙子,争取做到QuickZip一样啊