VB6.0调用 DLL版ZIP压缩文件夹目录和解压ZIP文件

MirZip压缩模块调用如下 主调者EXE文件 和 zlib1.dll 和 MirPack.dll 都必须在同一个目录文件夹下！ 一、压缩 函数原型如下： int __stdcall CreateZipFileA(char * sFolderPath, char* sZipFilePath); //目录路径 调用方法如下： CreateZipFileA （"C:\123", "C:\123.zip") 二、解压 函数原型如下： int __stdcall UnZipFileA(char * sFolderPath, char* sZipFilePath); //目录路径 调用方法如下： UnZipFileA （"C:\123", "C:\123.zip") '调用方法如下: 'CreateZipFileA "C:\123", "C:\123.zip") 压缩 Public Declare Function CreateZipFileA Lib "MirPack.dll" (ByVal sFolderPath As String, ByVal sZipFilePath As String) As Long 'UnZipFileA "C:\123", "C:\123.zip") 解压 Public Declare Function UnZipFileA Lib "MirPack.dll" (ByVal sFolderPath As String, ByVal sZipFilePath As String) As Long