Set tli = CreateObject("TLI.TLIApplication") Set Info = tli.TypeLibInfoFromFile("scrrun.dll") For Each Interface In Info.Interfaces WScript.Echo Interface.Name Next
或者我忘記了fso對象有哪些屬性和方法，而又沒有參考文檔，可以用下面的代碼：
復(fù)制代碼 代碼如下:
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
