关于读取文件输出到text控件的问题？

Question

我的代码如下Private Sub Command1_Click()
Shell "c:\1.bat"              注1.bat的内容为ipconfig >c:\1.txt
Open "c:\1.txt" For Input As #1 
x$ = Input$(LOF(1), 1)
Text1.Text = x$
Close
End Sub
但出错了，提示输入超出文件末尾，不知道如何解决

Answer 1

ipconfig >c:\1.txt这句执行完后，会有一定的延迟，所以才出错误

Answer 2

把这句放到Form_Load()中比较合适

Answer 3

关键不是这个问题我使用timer延迟后面的语句也不行，那时候ipconfig 已经执行完毕1.txt文件也存在了

Answer 4

呵呵，我发现有错误是因为文件中有中文
因为vb中认为一个中文字符长度和英文一样都是一，所以会出错了。
建议这样
Open "c:\1.txt" For Input As #1
  Do While Not EOF(1)
    x$ = x$ & Input$(1, 1)
  Loop
  Text1.Text = x$
Close