This method stops a build.
Syntax
IBuildCatalog.StopBuild
Example
The following example starts building the catalog specified by the KMSampleCatalog1 catalog definition, then displays a message box asking the user whether they would like to stop the build.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog
Dim Prompt, Buttons, Title, Response
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog1")
Prompt = "Build started." & Chr(13)
& "Would you like to stop the build?"
Buttons = vbYesNo
Title = objCatalog.Name
objCatalog.StartBuild
Response = MsgBox(Prompt, Buttons, Title)
If Response = vbYes Then
objCatalog.StopBuild
End If
'Release objects
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also
PauseBuild, ResumeBuild, StartBuild