Count Property

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

Add, IStoplist, Remove


© 1997-1998 Microsoft Corporation. All rights reserved.