QuickZIP V1.1，请大家测试下咯，方便快捷

[Kation]

''' <summary>
''' 打开ZIP文件
''' </summary>
''' <param name="FileName">ZIP文件地址（没有的会自动创建）</param>
''' <remarks></remarks>
Sub New(ByVal FileName As String)

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

''' <summary>
''' 解压缩文件
''' </summary>
''' <param name="Name">文件名（可以是包含文件夹的地址）</param>
''' <param name="Directory">解压到的目录</param>
''' <remarks></remarks>
Sub Extract(ByVal Name As String, ByVal Directory As String)

''' <summary>
''' 解压缩所有文件至文件夹
''' </summary>
''' <param name="Directory">解压到的文件夹</param>
''' <remarks></remarks>
Sub ExtractAll(ByVal Directory As String)

''' <summary>
''' 从ZIP文件内删除文件
''' </summary>
''' <param name="Name">文件名</param>
''' <remarks></remarks>
Sub Del(ByVal Name As String)

''' <summary>
''' 向ZIP文件添加文件或文件夹
''' </summary>
''' <param name="FileName">文件或文件夹地址</param>
''' <remarks></remarks>
Sub Add(ByVal FileName As String)

''' <summary>
''' 获取ZIP文件的MD5码
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
ReadOnly Property MD5() As String

''' <summary>
''' 获取ZIP文件内的文件MD5码
''' </summary>
''' <param name="Name">文件名</param>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
ReadOnly Property MD5(ByVal Name As String) As String

''' <summary>
''' 直接获取或设置ZIP文件内的文件Byte值
''' </summary>
''' <param name="Name">文件名（可包含目录号“/”）</param>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Default Property FileByte(ByVal Name As String) As Byte()

===========================================
以上是主要功能

简化了繁琐的操作，新手也可轻易读写ZIP文件！

主要是，能直接从内存读写ZIP文件，不用解压缩到磁盘也能获取数据，文件不用保存到磁盘也能压缩数据！

欢迎大家测试，请大家提出宝贵意见！

[zgke]

你就让我们看一些方法名啊...给个下的地址把.

能直接从内存读写ZIP文件，不用解压缩到磁盘也能获取数据，文件不用保存到磁盘也能压缩数据！
你的能让人选择 解压到临时文件里..你都放内存里受不了了..

[Kation]

呀，忘记上传了……

[Quote=引用 1 楼 zgke 的回复:]
你就让我们看一些方法名啊...给个下的地址把.

能直接从内存读写ZIP文件，不用解压缩到磁盘也能获取数据，文件不用保存到磁盘也能压缩数据！
你的能让人选择 解压到临时文件里..你都放内存里受不了了..
[/Quote]
我不信你用于内存里的东西有多大……
FileByte是直接从ZIP里读取图片、声音之类的
不是大型文件的……

============================
为什么我上传这么就了，我上传的资源里没有啊
再上传说文件已经上传过……
怎么办？

[海涵德]

''' <summary>
  ''' 打开ZIP文件
  ''' </summary>
  ''' <param name="FileName">ZIP文件地址（没有的会自动创建）</param>
  ''' <remarks></remarks>
  Sub New(ByVal FileName As String)

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

  ''' <summary>
  ''' 解压缩文件
  ''' </summary>
  ''' <param name="Name">文件名（可以是包含文件夹的地址）</param>
  ''' <param name="Directory">解压到的目录</param>
  ''' <remarks></remarks>
  Sub Extract(ByVal Name As String, ByVal Directory As String)

  ''' <summary>
  ''' 解压缩所有文件至文件夹
  ''' </summary>
  ''' <param name="Directory">解压到的文件夹</param>
  ''' <remarks></remarks>
  Sub ExtractAll(ByVal Directory As String)

  ''' <summary>
  ''' 从ZIP文件内删除文件
  ''' </summary>
  ''' <param name="Name">文件名</param>
  ''' <remarks></remarks>
  Sub Del(ByVal Name As String)

  ''' <summary>
  ''' 向ZIP文件添加文件或文件夹
  ''' </summary>
  ''' <param name="FileName">文件或文件夹地址</param>
  ''' <remarks></remarks>
  Sub Add(ByVal FileName As String)

  ''' <summary>
  ''' 获取ZIP文件的MD5码
  ''' </summary>
  ''' <value></value>
  ''' <returns></returns>
  ''' <remarks></remarks>
  ReadOnly Property MD5() As String

  ''' <summary>
  ''' 获取ZIP文件内的文件MD5码
  ''' </summary>
  ''' <param name="Name">文件名</param>
  ''' <value></value>
  ''' <returns></returns>
  ''' <remarks></remarks>
  ReadOnly Property MD5(ByVal Name As String) As String

  ''' <summary>
  ''' 直接获取或设置ZIP文件内的文件Byte值
  ''' </summary>
  ''' <param name="Name">文件名（可包含目录号“/”）</param>
  ''' <value></value>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Default Property FileByte(ByVal Name As String) As Byte()

[DevinXie]

谢谢楼主

[dazzlm1994]

可行~!而且蛮方便的~!

[Kation]

昨天上传的资源，今天才能显示出来，日……

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

[Joe-xXx]

和谐社会，路过

[兔子-顾问]

支持。分享的不错。

[DevinXie]

正在试用...

[海涵德]

有思路的，说下思路，不明白的跟帖

[dazzlm1994]

这个试过了~!我可能是第一个使用的吧~!虽然我使用的是1.0~!
1.0都蛮不错的~!
请问一下读取完之后可以短时间内释放资源吗?

[dazzlm1994]

不然堆积起来还是很多得

[Kation]

[Quote=引用 13 楼 dazzlm1994 的回复:]
不然堆积起来还是很多得
[/Quote]
读取完要你自己释放啊
你自己的Byte()要=Nothing
不关QuickZIP的事

[Kation]

开始测试V1.2：
http://topic.csdn.net/u/20100724/17/aa8c2fa1-debf-4662-859a-4ada5e93ccd9.html

[Kation]

没人观摩？……