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
时间和篇幅有限,举的例子比较简单,更详细的请查阅文档(参考链接2为下载地址)。 考链接: RunTime COM Object InspectionFILE: Tlbinf32.exe : Help Files for Tlbinf32.dll 原文:http://demon.tw/programming/tli-tliapplication.html