This method moves a site up or down in the list of sites.
Syntax
IServers.ChangeOrder(MoveUp)
Parameters
MoveUp
If True, moves the site up in the list of sites; if False, moves the site down in the list of sites.
Example
The following example moves the site Microsoft.com down in the list of sites.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objServers
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objServers = objBuildServer.Sites
objServers.ChangeOrder "Microsoft.com", False
'Release objects
Set objServers = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also