Question

vb中的通用对话框

Private Sub Command1_Click()
Dim s As String
commondialog1.Filter = "所有文件|*.*|文本文件|*.txt"
commondialog1.FilterIndex = 2
On Error GoTo openerr
commondialog1.InitDir = App.Path
commondialog1.ShowOpen
Open App.Path & "\" & in5.txt For Input As #1
Input #1, s
Close #1
Text1.Text = s
openerr:
End Sub
帮忙看看到底哪里错了啊！

Answer 1

Private Sub Command1_Click()
Dim s As String
On Error GoTo openerr
commondialog1..CancelError = True
commondialog1.Filter = "所有文件|*.*|文本文件|*.txt"
commondialog1.FilterIndex = 2
commondialog1.InitDir = App.Path
commondialog1.ShowOpen
Open App.Path & "\in5.txt" For Input As #1
Input #1, s
Text1.Text = s
Close #1
openerr:
End Sub

Answer 2

应改为"\in5.txt "