为何会有"用户定义类型未定义"的错误??

Question

Public fso As New FileSystemObject, fil As File, ts As TextStream编译时总是提示"用户定义类型未定义"??

Answer 1

没有引用 microsoft scripting runtime

Answer 2

  Dim i     As Integer
  Dim J     As Integer
  Dim a()
  
    
Set ts = fso.OpenTextFile("d:\mftvoltage.txt", ForReading)
ts.ReadAll
J = ts.Line
ts.CloseSet ts = fso.OpenTextFile("d:\mftvoltage.txt", ForReading)
For i = 0 To J - 1
a(i) = ts.ReadLine
Next i其中a(i) = ts.ReadLine 这句总是报"类型不匹配",应该如何定义这个数组??谢谢!!!!!!!!!!!

Answer 3

Dim i     As Integer 
  Dim J     As Integer 
  Dim a() 
   
     
Set ts = fso.OpenTextFile("d:\mftvoltage.txt", ForReading) 
ts.ReadAll 
J = ts.Line 
ts.Close 
redim a(J)
Set ts = fso.OpenTextFile("d:\mftvoltage.txt", ForReading) 
For i = 0 To J - 1 
a(i) = ts.ReadLine 
Next i