Open App.Path & "\" & flename & ".txt" For Input As #1
Do Until EOF(1)
Line Input #1, lineoftext$
alltext$ = alltext$ & lineoftext$ & wrap$
Loop
On Error GoTo err:
'MsgBox flename
err:
' MsgBox ("文件未找到！")
' Close #1
上面的程序运行后，无论有否txt文件（ flename ),均提示：文件未找到，我不知原因，烦请指明。谢谢

用dir函数可以判断一个文件是否存在...
如果同样是跟你现在的问题有关..请你就要本贴下跟贴....
同样的问题...你开几个贴...在认为是灌水之余...别人也是感觉非常讨厌...甚至..已经不想再帮你了...

我是第一次在坛上发，所以不了明了，以后不会再看到这种现象了。

把 ' 符号去掉，然后把 On Error GoTo err: 这条语句放到 open ... 前面