vb压缩源码

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

放在(Declare)的Global External Functions里面

PowerBuilder格式:


压缩文件成为ZIP
function boolean ZipTo(string strSourceFileName,string strZipFileName,bool IsKeepPaths,string strRootDir,string strPassword) Library 'wfZip.dll';
参数:strSourceFileName
字符型，如果有多个文件，文件全路径请用"|"符号分隔

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

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

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

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




解压缩ZIP文件
function boolean UnZipTo(string strZipFileName,string strDirectoryPath,bool IsKeepPaths,string strPassword) Library 'wfZip.dll';
参数:strZipFileName
字符型，要要解压缩的ZIP文件路径

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

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

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