Private Sub Command1_Click()

Dim inputdata

Open App.Path & "\从文件一个字符一个字符地读取信息.txt" For Input As #1

Do While Not EOF(1)

 Input #1, inputdata

 Text1.Text = Text1.Text + inputdata

 Loop

 Close #1  
                                            '输入超出文件尾（错误 62）
End Sub
以下文件内容是手动输入的:

FileLen函数用于返回一个Long型值,代表一个文件的长度.单位是字节.语法:FileLen(Pathname)Pathname:必要的参数,用来指定一个文件名的字符串表达式.可以包含目录文件夹以及驱动器.注意:当调用FileLen函数时,如果指定的文件已经打开,则返回的值是这个文件在打开前的大小,若要取得一个打开文件的长度大小,可使用LOF函数.
                                                                                                       谢谢

当设置了    On Error Resume Next 后运行正常 但原题是可以运行的 另外:把原题的文本文件移至该题中 运行也是正常的
                                                                                             谢谢

可能都去过大年了 没人回答

例子，自己看吧。

版主给的附件确实很好,但我还没有那样的水平.先收藏着吧.
我不知道是否该结贴,我期待更好的回答.
                      谢谢回复

楼主的代码,我测试没发现有任何错误......

请发工程.

这是我的代码
Private Sub Command1_Click()
Dim inputdata
'On Error Resume Next                                                     '设置错误陷阱后运行正常
Open App.Path & "\从文件一个字符一个字符地读取信息.txt" For Input As #1
Do While Not EOF(1)
 Input #1, inputdata
 Text1.Text = Text1.Text + inputdata
 Loop
 Close #1                                              '输入超出文件尾（错误 62）
End Sub

Private Sub Command2_Click()                           '上网求助
End
End Sub
                                                                                                       谢谢您的帮助

1、你所提供的工程的代码没问题。
2、你所测试所用的 文件有问题，这是16进制表示的最后部分。
0D 0A 0D 0A 20
看到了吗？你的文件在文件最后有二个回车换行 ，然后再加了一个空格。

再来分析你的代码
Dim inputdata               '定义变量为 Variant  类型
...............
Input #1, inputdata            '读取一个变量。当前内容为类型表示符时，将继续向后读取所需的字符
                   在读到最后一行 &h20时，这个函数认为读取没有结束，就继续向后读取，但结果文件结束了，导致本次读取出错。
.................

这行命令建议改为：
Line Input #1, inputdata

Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。
这条命令在这种情况下，遇到文件结束，不会导致错误出现。