The QueryTimeout property specifies the duration, in milliseconds, to wait for a query to finish.
Syntax
ISearchCatalog.QueryTimeout
Remarks
The default value is 10000 milliseconds (10 seconds).
Example
The following example sets the timeout duration to 20 seconds for the KMSampleCatalog1 catalog.
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("KMSampleCatalog1")
objCatalog.QueryTimeout = 20000
'Release objects
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objSearchServer = Nothing
Set objSearchAdmin = Nothing
See Also