This read-only property specifies the number of mappings in the list.
Syntax
IMappings.Count
Example
The following example displays the number of mappings.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objMappings
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog2")
Set objMappings = objCatalog.objMappings
Wscript.Echo "There are " & objMappings.Count & " mappings."
'Release objects
Set objMappings = Nothing
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also