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