vb打开文件一直说找不到文件

Dim mystr As String, mynum As Single
fileno = FreeFile
Open App.Path & "c:\vb.txt" For Input As #fileno
Do While Not EOF(fileno)
Input #fileno, mystr, mynum
Print mystr, mynum
Loop
Close #fileno
这个是作业程序，有错么？

这句有问题 Open App.Path & "c:\vb.txt" For Input As #fileno
app.path 是指工程所在的路径，比如“D:\程序”
那么 App.Path & "c:\vb.txt"就得到“D:\程序c:\vb.txt”
这样的路径肯定是找不到文件的。
如果你的文件保存在c盘根目录下，就改为Open "c:\vb.txt" For Input As #fileno
如果你的文件保存在工程所在的目录下，就改为
Open App.Path & "\vb.txt" For Input As #fileno

其次，只能将一行读取到一个变量中
要改成 Input #fileno, mystr
第三，文本文件的内容都是字符串，不能直接赋值给Single 变量

if dir("c:\123.exe")="" then

msgbox "not found"

else

shell "c:\123.exe"

end if