Set tli = CreateObject("TLI.TLIApplication") Set Info = tli.TypeLibInfoFromFile("scrrun.dll") For Each Interface In Info.Interfaces WScript.Echo Interface.Name Next
或者我忘记了fso对象有哪些属性和方法,而又没有参考文档,可以用下面的代码:
复制代码 代码如下:
Dim fso Set fso = CreateObject("scripting.filesystemobject") Set tli = CreateObject("TLI.TLIApplication") Set Info = tli.ClassInfoFromObject(fso) For Each Member In Info.DefaultInterface.Members WScript.Echo Member.Name Next