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

有的话，早就告诉你了。

没必要就同一个问题反反复复的提问。

那就用ZIpFile吧，更加方便，而且还可以压缩文件：

Dim zip As New zipFile
zip.Open("c:\data\backup.zip")
zip.Password = "密码"
Try
    zip.Extract("foxtable.exe", "c:\data\foxtable.exe")
Catch ex As Exception
   Messagebox.show("密码错误")  
End Try
zip.Close()

要改很多地方呀

包括生成的文件

这个工程量就太大了

你让我有拿头撞墙的冲动，只需改动不到10行代码而已，这算哪门子工程量太大？

你甚至不需要自己写代码，用zipFile文件带密码压缩文件，代码实现成的，从帮助复制过来即可，6楼是带密码判断的解压代码，也是现成的。

你对foxtable要求太高了。