谁能提供一个对列表中的所有文件时行压缩的控件,最好有例子

OFFICE之门 2003-09-04 03:13:13
例如有一个文件清单:
d:\aa\tt.txt
e:\bb\tt2.txt
。。。 。。。

这个文件清单保存在一个文件中,有谁能提供一个控件对其进行压缩,我原来用WINZIP的WZZIP命令去做,最今发现不好用,想用控件做,请各位帮忙 ,多谢!
...全文
66 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lubberland 2003-09-10
  • 打赏
  • 举报
回复
是组件,不会用给我发邮件
压缩
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
OFFICE之门 2003-09-04
  • 打赏
  • 举报
回复
可以发邮件给我,henrryzhang1227@163.com

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧