This read-only property specifies the number of columns (IColumn interfaces) in the schema.
Syntax
IColumns.Count
Example
The following example displays the number of columns in the schema for the KMSampleCatalog1 catalog definition.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objSchema, objColumns
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog1")
Set objSchema = objCatalog.objSchema
Set objColumns = objSchema.objColumns
Wscript.Echo objCatalog.Name & " has " & objColumns.Count & " columns."
'Release objects
Set objColumns = Nothing
Set objSchema = Nothing
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also