This read-only property specifies the number of stop lists.
Syntax
IStoplists.Count
Example
The following example displays the number of stop lists.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objSchema, objStoplists
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog1")
Set objSchema = objCatalog.objSchema
Set objStoplists = objSchema.objStoplists
Wscript.Echo objCatalog.Name & " has " & objStoplists.Count & " stop lists."
'Release objects
Set objStoplists = Nothing
Set objSchema = Nothing
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also