- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于解压 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106342)
-- 发布时间：2017/9/7 7:41:00
-- 关于解压
Dim zip As New zipFile
CompactAccessFile(ProjectPath & "客户资料.mdb","123")
zip.Create("C:\\Users\\Administrator\\Desktop\\表测试\\备份与恢复2017年9月2日\\kh.zip")
zip.Password = "mypassword"
zip.AddFile(ProjectPath & "客户资料.mdb")
zip.Close()
数据压缩后解压怎出错呀？
此主题相关图片如下：4587.png
-- 发布时间：2017/9/7 8:40:00
--
1、你直接双击打开和解压有没有问题？
2、是不是你mdb文件在打开状态，无法覆盖替换？
-- 发布时间：2017/9/7 9:04:00
--
就是双击压缩文件进行操作的等输完解压密码后就出现上面的错误提示框
[此贴子已经被作者于2017/9/7 9:04:18编辑过]
-- 发布时间：2017/9/7 9:13:00
--
以下是引用裴保民在2017/9/7 9:04:00的发言：
就是双击压缩文件进行操作的等输完解压密码后就出现上面的错误提示框
就是双击压缩文件进行操作的等输完解压密码后就出现上面的错误提示框
[此贴子已经被作者于2017/9/7 9:04:18编辑过]
说明你压缩有问题，应该是文件有问题。我测试下面代码没问题
Dim zip As New zipFile
zip.Create("d:\\test123.zip")
zip.Password = "mypassword"
zip.AddFile("d:\\test.mdb")
zip.Close()