Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Using the AdvancedSearchComplete Event and the AdvancedSearchStopped Event

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)     MsgBox "The search has finished running and found " & _         SearchObject.Results.Count & " results.", vbOKOnly + vbInformation, _         "Advanced Search Complete Event" End Sub