VB6.0调用 DLL版ZIP压缩文件夹目录和解压ZIP文件,网上很多源码不好用,所以就自己做了一个。原始代码是VC++的用VS2019编译了一个,DLL封装了下。调用很简单
'调用方法如下:
'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
1