01
Parse
'解析zip文件,获取zip的压缩文件信息
'FileName ZIP文件完整路径
'Return 返回出错信息
Function Parse(FileName As String) As String
这个函数是基础,只有先执行了这个函数,后面的函数才能正确执行。
02
UnZipAll
'解压缩所有文件,并保存为文件
'SavePath 保存文件的路径
'Return 返回出错信息
Function UnZipAll(SavePath As String) As String
03
UnZipFile
'解压某一个文件
'FileName 需要解压的文件名称,是ZIP压缩文件包中的文件名称
'RetByte 返回解压后的数据Byte数组
'Return 返回出错信息
Function UnZipFile(FileName As String, ByRef RetByte() As Byte) As String
04
UnZipIndex
'解压某一个文件
'IndexZeroBase 需要解压的文件下标,是ZIP压缩文件包中的文件下标
'RetByte 返回解压后的数据Byte数组
'Return 返回出错信息
Function UnZipIndex(IndexZeroBase As Long, ByRef RetByte() As Byte) As String
因为是抱着学习的态度去做的,所以对于效率什么的就没有去考虑,能不用API和外部对象就尽量没有去使用,所以只要是支持VBA语言的都是可以使用的: