是组件,不会用给我发邮件
压缩
Set Zip = New FileZip.Zip
Zip.ZipFileName = Replace(FileName, ".mdb", ".zip")
Zip.UpdatingZip = False
Zip.AddFile FileName
Zip.MakeZipFile
解压缩
Set UnZip = New FileZip.UnZip
UnZip.HonorDirectories = False
If UnZip.UnZip(FileName, DestPath) <> 0 Then
Err.Raise CA_BLCOMErr + 9, "CA_BLCOM", "文件解压缩失败,原因:" + UnZip.GetLastMessage
End If
Fso.DeleteFile FileName, True
If Not Fso.FileExists(Replace(FileName, ".zip", ".mdb")) Then
Err.Raise CA_BLCOMErr + 11, "CA_BLCOM", "PKCS#7 中签名文件的批号和指定的批号不一致"
Else
Fso.DeleteFile Replace(FileName, ".zip", ".mdb"), True
End If