This read-only property specifies the number of catalogs (ISearchCatalog objects).
Syntax
ISearchCatalogs.Count
Example
The following example displays the number of catalogs.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objSearchServer, objCatalogs
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objSearchServer = objSearchAdmin.SearchServer
Set objCatalogs = objSearchServer.SearchCatalogs
Wscript.Echo "There are " & objCatalogs.Count & " catalogs."
'Release objects
Set objCatalogs = Nothing
Set objSearchServer = Nothing
Set objSearchAdmin = Nothing
See Also