谁能帮我找一下错误

来源：百度知道编辑：UC知道时间：2024/05/29 15:18:16

Private Sub fileopen_Click()
CommonDialog1.Action = 1
Text1.Text = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text + inputdata + Chr(13) + Chr(10)
Loop
Close #1
End Sub
说是：错误的文件名或号码Open CommonDialog1.FileName For Input As #1
谁能帮忙找一下错误，在线等
谢谢

Private Sub fileopen_Click()
CommonDialog1.Action = 1
Text1.Text = ""
If CommonDialog1.FileName <> "" then
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text + inputdata + Chr(13) + Chr(10)
Loop
Close #1
End If
End Sub

谁能帮我找一下错误帮我找一下ASP错误请帮我找一下错误麻烦帮我找一下错误？帮忙找一下错误我的程序有好多错误谁能帮我找一下啊!!!!!!! 帮我找一下这个程序的错误帮我找一下以下的历史错误~谢谢啦请高手帮我找一下错误(ASP) 关于ASP的问题,帮我找一下错误