急救我~~~

[ysp128]

Dim fso As New FileSystemObject, txtfile, fil1 As File, Ts As TextStream
Dim i As Integer, j As Integer
Set fil1 = fso.GetFile(Text2)
Set Ts = fil1.OpenAsTextStream(ForReading)

以上代码用到了什么dll文件呀!为什么在系统中会出错

出错提示"类不支持自动化或不支持期望的接口"

[whxianhu]

一:
Dim fso , txtfile, fil1 , Ts
Dim i As Integer, j As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil1 = fso.GetFile(Text2)
Set Ts = fil1.OpenAsTextStream(ForReading)
二：
引用Microsoft Scripting Runtime (%win%\system32\scrrun.dll)