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 ),均提示：文件未找到，我不知原因，烦请指明。谢谢

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