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
ַͣѹ
