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

zip.Extract(dlg.filename & ".bak",dlg.filename)

这句出错了！！！

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog
dlg.Filter= "上报文件|*.DSB"   '设置筛选器
dlg. title= "生成上报文件"
dlg.OverwritePrompt = False
If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮
    If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在
        If Messagebox.Show("有同名文件存在,是否删除?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
            FileSys.DeleteFile(dlg.filename,2,2)  '则彻底删除之
        Else
            Return
        End If
    End If
    Dim ex As New Exporter
    ex.SourceTableName = "调资基础数据"   '指定导出表
    ex.Format = "Access"   '指定导出文件格式
    ex. PassWord = "TZX_GWY_JT_8888"  '用此属性指定目标文件的密码
    ex.filepath =  dlg.filename & ".bak"    '指定目标文件
    ex.NewTableName = "调资基础数据"        '指定导出后的表的名称
    ex.Export()    '开始导出数据

 
   MessageBox.Show("上报数据生成完成!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    FileSys.DeleteFile(dlg.filename & ".bak", 2, 2)
End If

Dim dlg As New OpenFileDialog    '定义一个新的OpenFileDialog
dlg.Filter= "上报文件|*.DSB"        '设置筛选器
dlg. title= "接收上报文件"  

If dlg.ShowDialog = DialogResult.Ok Then       '如果用户单击了确定按钮

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.Extract(dlg.filename)
zip.Close()
FileSys.DeleteFile(dlg.filename & ".bak", 2, 2)

Dim ip As New Merger 
ip.SourcePath = dlg.filename  '指定数据文件
ip.SourceTableName = "调资基础数据"      '指定要合并的表
ip.Format = "Access" '指定合并文件格式
ip. PassWord = "TZX_GWY_JT_8888"  '用此属性指定合并文件的密码
ip.Fields = "单位名称"   ' 指定要合并的字段(列)
ip. DataTableName ="数据接收临时判断" '合并后的表名
ip. Merge()   '开始合并
If Tables("数据接收临时判断").Rows.Count <> 0 Then
Dim dws As List(Of String)       '定义一个字符型数组集合
 dws = DataTables("调资基础数据").GetUniqueValues("", "单位名称") '列出所有单位
 For Each dw As String In dws '逐个单位判断
    Dim dr As DataRow = DataTables("数据接收临时判断").find("[单位名称] = '" & dw & "'")
        If dr IsNot Nothing Then
           If MessageBox.Show( dw & "的记录已经存在,确定是否请删除?","提示",MessageBoxButtons. YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
For Each Sr As DataRow In DataTables("调资基础数据").datarows
If Sr("单位名称") <> "" Then
            Sr.locked = False
End If
Next
 
     DataTables("调资基础数据").DeleteFor("[单位名称] = '" & dw & "'")
Else
    FileSys.DeleteFile(dlg.filename, 2, 2)
     FileSys.CopyFile(dlg.filename & ".bak1",dlg.filename ,False)
     FileSys.DeleteFile(dlg.filename & ".bak1", 2, 2)
     Return       '点击否终止代码的执行
End If
      End If
 Next
 Dim mg As New Merger
 mg.SourcePath = dlg.filename
 mg.SourceTableName = "调资基础数据"
 mg.Format = "Access"
 mg. PassWord = "TZX_GWY_JT_8888"
 mg.DataTableName = "调资基础数据"
 mg.Merge()
 MessageBox.Show("接收上报数据完成!!!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
DataTables("数据接收临时判断").DataRows.Clear()  '清空指定表数据
     FileSys.DeleteFile(dlg.filename)
     FileSys.CopyFile(dlg.filename & ".bak1",dlg.filename ,False)
     FileSys.DeleteFile(dlg.filename & ".bak1", 2, 2)

Else
     FileSys.DeleteFile(dlg.filename)
     FileSys.CopyFile(dlg.filename & ".bak1",dlg.filename ,False)
     FileSys.DeleteFile(dlg.filename & ".bak1", 2, 2)
MessageBox.Show("请核实数据格式!!!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
END IF       '点击否终止代码的执行

Else
Return       '点击否终止代码的执行
End If

这是接收按钮代码

出现错误提示

     发表一下个人看法。DecryptFile既然是解密文件的操作，理所当然应该有判断解密是否成功的办法，如果解密操作后连密码是否正确、解密是否成功都不能进行判断，实在想不出这个解密功能怎么使用？

    打个比方，解密就像拿钥匙开门，一般情况下，拿不正确的钥匙开门时，应给予提醒（“你的钥匙不正确！”），或者干脆打不开门。但现在的功能就好像是：不管钥匙对不对，都不给予任何提醒，而且都可以把门开，但当你拿不正确的钥匙打开门之后，忽然又把人当作小偷逮起来了。不是要求太高了，是这样的设计太不符合常理。

    还有前面贺老师的回答，也多少有些看法。很多的时候，贺老师总是让用户这样那样的试，但用户试来试去，发现这些办法都不可行；或者换句话说，可能教给别人的办法，自己原本就没有测试通过。在设计软件方面我不怎么懂，但在我的工作中，我教给别人的办法，肯定是我事先试过可行的，才会给别人说。

对呀