Dim zip As New zipFileCompactAccessFile(ProjectPath & "客户资料.mdb","123")zip.Create("C:\Users\Administrator\Desktop\表测试\备份与恢复2017年9月2日\kh.zip")zip.Password = "mypassword"zip.AddFile(ProjectPath & "客户资料.mdb")zip.Close()
数据压缩后解压怎出错呀?