引用TypeLib Information库Option ExplicitPrivate Sub Form_Load() Dim TypeLibraryInfo As TypeLibInfo Dim TypeLibraryPath As String Dim i As IntegerTypeLibraryPath = "f:\WebMarket.dll" Set TypeLibraryInfo = TLI.TypeLibInfoFromFile(TypeLibraryPath) MsgBox TypeLibraryInfo.Guid MsgBox TypeLibraryInfo.MajorVersion MsgBox TypeLibraryInfo.MinorVersion MsgBox TypeLibraryInfo.LCID Set TypeLibraryInfo = Nothing End Sub
Dim TypeLibraryInfo As TypeLibInfo
Dim TypeLibraryPath As String
Dim i As IntegerTypeLibraryPath = "f:\WebMarket.dll"
Set TypeLibraryInfo = TLI.TypeLibInfoFromFile(TypeLibraryPath)
MsgBox TypeLibraryInfo.Guid
MsgBox TypeLibraryInfo.MajorVersion
MsgBox TypeLibraryInfo.MinorVersion
MsgBox TypeLibraryInfo.LCID
Set TypeLibraryInfo = Nothing
End Sub