This method adds a catalog (ISearchCatalog object).
Syntax
ISearchCatalogs.Add(Catalog)
Parameters
Catalog
The catalog to add.
Example
The following example adds the catalog KMSampleCatalog3.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objSearchServer, objCatalogs, objCatalog
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objSearchServer = objSearchAdmin.SearchServer
Set objCatalogs = objSearchServer.SearchCatalogs
Set objCatalog = objCatalogs.Add("KMSampleCatalog3")
...
'Release objects
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objSearchServer = Nothing
Set objSearchAdmin = Nothing
See Also