[求助]为什么用CommonDialog无法打开
我用CommonDialog控件编写了如下代码为什么要查看的文件打不开,请大家帮帮忙,谢谢了!!!Private Sub Cmd_Click()
On Error GoTo errhandler
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "open file"
CommonDialog1.FileName = "" & App.Path & "\persen.mdb ""
CommonDialog1.Filter = "All Files (*.*)|*.*|data Files" & _
"(*.mdb)|*.mdb|Form_files(*.frm)|*.frm"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
errhandler:
If Err = 32755 Then
Exit Sub
End If
End Sub
On Error GoTo errhandler
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "open file"
CommonDialog1.FileName = "" & App.Path & "\persen.mdb ""
CommonDialog1.Filter = "All Files (*.*)|*.*|data Files" & _
"(*.mdb)|*.mdb|Form_files(*.frm)|*.frm"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
errhandler:
If Err = 32755 Then
Exit Sub
End If
End Sub