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