VBA解压缩ZIP文件01——实现的功能

'解析zip文件，获取zip的压缩文件信息
'FileName   ZIP文件完整路径
'Return     返回出错信息
Function Parse(FileName As String) As String

'解压缩所有文件，并保存为文件
'SavePath   保存文件的路径
'Return     返回出错信息
Function UnZipAll(SavePath As String) As String

'解压某一个文件
'FileName   需要解压的文件名称，是ZIP压缩文件包中的文件名称
'RetByte    返回解压后的数据Byte数组
'Return     返回出错信息
Function UnZipFile(FileName As String, ByRef RetByte() As Byte) As String

'解压某一个文件
'IndexZeroBase  需要解压的文件下标，是ZIP压缩文件包中的文件下标
'RetByte        返回解压后的数据Byte数组
'Return         返回出错信息
Function UnZipIndex(IndexZeroBase As Long, ByRef RetByte() As Byte) As String