This read-only property specifies the number of path rules in the list of path rules.
Syntax
ISitePaths.Count
Example
The following example displays the number of path rules in the list of path rules for the site Microsoft.com.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objSites, objSite, objPaths
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog2")
Set objSites = objCatalog.objSites
Set objSite = objSites.Item("Microsoft.com")
Set objPaths = objSite.objPaths
Wscript.Echo "There are " & objPaths.Count & " paths."
'Release objects
Set objPaths = Nothing
Set objSite = Nothing
Set objSites = Nothing
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing