bata2升到4提示的错误，请技术看下咋回事

100018633

bata2升到4提示的错误，bata2运行正常，升到4就提示上述错误，我也没看懂，这里没有什么控件，也不涉及什么焦点呀


补充内容 (2022-3-1 09:06):
看了下版本，是从bata2升到bata5，不是升到4

技术008

本地用这种简单范例测试正常，建议用户自己试试

  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("D:\PleaceOrder.txt", 1,False,0)
  a = f.ReadLine
  Application.MsgOut a
  f.Close