关于从文件中读数据

Question

Private Sub Form_Load()
  Dim str As String
  Dim ii As Integer
  Open App.Path & "\sys.ini" For Input As #1
  ii = LOF(1)
  str = StrConv(Input(ii, 1), vbUnicode)
  Close #1
End Sub我想从sys.ini文件中读出数据，但是老是出错，错误是“input past end of file " ,请问是为什么？

Answer 1

str = StrConv(Input(ii, 1), vbUnicode)
兄弟问一问你这句是什么意思?

Answer 2

Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(文件名, 1)
Do While Not f.AtEndOfStream
    R = f.ReadLine  '每一行
 
loop