This read-only property specifies information about the current build (as an ICatalogProperties interface).
Syntax
IBuildCatalog.CurrentBuildProperties
Example
The following example displays information about the current build for the KMSampleCatalog1 catalog definition.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objCurBldProps
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog1")
Set objCurBldProps = objCatalog.CurrentBuildProperties
'Show the properties
Wscript.echo "objCatalog " & objCatalog.Name & " properties:"
Wscript.echo " Build date: " & objCurBldProps.BuildDate
Wscript.echo " # docs: " & objCurBldProps.NumberOfDocuments
Wscript.echo " Size of index: " & objCurBldProps.IndexSize _
& " (MBytes)"
Wscript.echo " Size of property store " _
& objCurBldProps.PropertyStoreSize & " (MBytes)"
Wscript.echo " # unique keys: " _
& objCurBldProps.UniqueKeyCount
Wscript.echo " Crawl number: " & objCurBldProps.PropSeqNum
Wscript.Echo ""
'Release objects
Set objCurBldProperties = Nothing
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also