| || |
Recovery Scenario Name from Recovery File \"qrs\" using VBScript
I am trying to add all the recovery scenarios from a folder to Test, but it requires three parameters
FileName, RecoveryScernarioName , Sequence [Optional].
here i wanted to findout the second param value from the recovery file "RecoveryScernarioName" is there any way to get it...
here we go...
<font class="small">Code:</font><hr /><pre>
Set folder = fso.GetFolder(sFolder)
Set files = folder.Files
For each folderIdx In files
If fso.GetExtensionName(folderIdx) = extn Then
GetFileList = FileList
'Taken from HELP FILE
Dim intIndex '
Set qtApp = CreateObject("QuickTest.Application")
Set qtTestRecovery = qtApp.Test.Settings.Recovery
If qtTestRecovery.Count > 0 Then
RecoveryPath = Environment.Value("Recovery")
RecoveryList = GetFileList(RecoveryPath ,"qrs")
For i = 0 to ubound(RecoveryList)
qtTestRecovery.Add RecoveryPath & "\" & RecoveryList(i), "RetryObjectNotFound"
'I have issue in the above Line if there are 2 recovery file recovery scenario Name
'"RetryObjectNotFound" is not associated to the first file and it is of file 2, how
'to autometically get recovery scenario name and from the recovery file to execute
'the above line.
For intIndex = 1 To qtTestRecovery.Count
qtTestRecovery.Item(intIndex).Enabled = True
qtTestRecovery.Enabled = True
Set qtTestRecovery = Nothing ' Release the Recovery object
Set qtApp = Nothing ' Release the Application object