主题：没人能解决，解密密码和加密密码不一致时的错误码？

DecryptFile 能不能改我们不懂，如果贺老师没有其他的解决办法，建议楼主可以换一下思路：

在解密之前，先判断解密的密码是否正确，如果正确，则解密；如果密码不正确，则不再解密，出现错误提示。不知这样的思路能否解决问题。

方法已经告诉你了，代码也贴出来了，至少可以自己先用简单的代码测试带密码的压缩和解压，测试一下能不能正确压缩？ 能不能正常解压？测试一下解压的文件是否能正常打开？全部通过后再应用到自己的系统中。
如果有问题，那么究竟是压缩不行，还是解压不行，都可以通过一段简单的代码来测试验证，不需要动不动就整段整段的代码上传和上传项目。
你不是新手，你是老得不能再老的用户，别永远都在用人家的代码拼凑自己的系统，学会自己解决哪怕是一点点简单的问题，版主也是人，也有自己的工作，不是你的自动代码编写器。

目标就是先要能上报和接收后，才能将TRY加上去！！！

上报和接收都有问题时，加上去有啥用？

你15楼贴出来的代码，解压部分的代码为：

Dim zip As New zipFile
zip.Open(dlg.filename & ".bak")
zip.Password = "8888"
zip.Extract(dlg.filename)
zip.Close()
FileSys.DeleteFile(dlg.filename & ".bak", 2, 2)

你没有用Try开捕获错误，密码不对时自然就直接报错。

还有13楼的压缩文件：

Dim zip As New zipFile
zip.Create(dlg.filename)
zip.AddFile(dlg.filename & ".bak",dlg.filename)
zip.Password = "8888"
zip.Close()

可以看出生成的压缩文件的后缀是dsb，因为没有添加bak

而解压文件的代码是：

Dim zip As New zipFile
zip.Open(dlg.filename & ".bak")
zip.Password = "8888"
zip.Extract(dlg.filename)
zip.Close()
FileSys.DeleteFile(dlg.filename & ".bak", 2, 2)

后缀名是bak，两段代码压缩文件的名称都不一样，还解压什么？

FileSys.CopyFile(dlg.filename, dlg.filename & ".bak",False)
FileSys.CopyFile(dlg.filename, dlg.filename & ".bak1",False)
FileSys.DeleteFile(dlg.filename, 2, 2)

Dim zip As New zipFile
zip.Open(dlg.filename & ".bak")
zip.Password = "8888"
zip.ExtractAll(dlg.filename)
zip.Close()
FileSys.DeleteFile(dlg.filename & ".bak", 2, 2)

前面加了这段的

FileSys.CopyFile(dlg.filename, dlg.filename & ".bak",False)
所以解压的还是zip.Open(dlg.filename & ".bak")