Dim qtApp 'As QuickTest.Application ' Declare the Application object variable Dim qtTestRecovery 'As QuickTest.Recovery ' Declare a Recovery object variable Dim intIndex ' Declare an index variable
' Open QuickTest and prepare objects variables Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object Set qtTestRecovery = qtApp.Test.Settings.Recovery ' Return the Recovery object for the current test If qtTestRecovery.Count > 0 Then ' If there are any default scenarios specified for the test qtTestRecovery.RemoveAll ' Remove them End If ' Add recovery scenarios qtTestRecovery.Add "C:WebRecovery.qrs", "File Download", 1 ' Add the "ErrMessage" scenario as the first scenario ' Enable all scenarios For intIndex = 1 To qtTestRecovery.Count ' Iterate the scenarios qtTestRecovery.Item(intIndex).Enabled = True ' Enable each Recovery Scenario (Note: the 'Item' property is default and can be omitted) Next ' Enable the recovery mechanism (with default, on errors, setting) qtTestRecovery.Enabled = True 'Ensure that the recovery mechanism is set to be activated only after errors qtTestRecovery.SetActivationMode "OnEveryStep" 'OnError is the default, the other option is "OnEveryStep". Set qtApp = Nothing ' Release the Application object Set qtTestRecovery = Nothing ' Release the Recovery object |