来自「vb压缩源码」· 代码 · 共 39 行

调用wfZip动态链接库VB使用说明

VB格式:


压缩文件成为ZIP
Declare Function ZipTo Lib "wfZip.dll" (ByVal strSourceFileName As String, ByVal strZipFileName As Integer, ByVal IsKeepPaths As Boolean, ByVal strRootDir As String, ByVal strPassword As String) As Boolean
参数:strSourceFileName
字符型，如果有多个文件，文件全路径请用"|"符号分隔

参数:strZipFileName
字符型，要要压缩的ZIP文件路径

参数:IsKeepPaths
布尔型，是否保持文件路径

参数:strRootDir
字符型，相对于文件目录的压缩路径

参数:strPassword
字符型，压缩密码




解压缩ZIP文件
Declare Function UnZipTo Lib "wfZip.dll" (ByVal strZipFileName As String, ByVal strDirectoryPath As Integer, ByVal IsKeepPaths As Boolean, ByVal strPassword As String) As Boolean
参数:strZipFileName
字符型，要要解压缩的ZIP文件路径

参数:strDirectoryPath
字符型，ZIP中的文件将要解压到的目录

参数:IsKeepPaths
布尔型，是否保持文件路径

参数:strPassword
字符型，压缩密码