Forum Discussion
Sub AddTestedApp
'This subroutine adds the application under test to the tested apps list
Project.Variables.TestAppIndex = TestedApps.Add(Project.Variables.ftAppInstall & Project.Variables.Product & ".exe")
End Sub 'AddTestedApp
Sub DelTestedApp
'This subroutine deletes the application under test from the tested apps list
index = TestedApps.Count - 1
Do Until index = -1
result = TestedApps.Delete(index)
If result = true Then
Call log.event(Project.Variables.ftAppInstall & Project.Variables.Product & ".exe was removed from TestedApps.")
Else
Call DisplayMessage(Project.Variables.ftAppInstall & Project.Variables.Product & ".exe was not removed from TestedApps.", "warning")
End If
index = index - 1
Loop
End Sub 'DelTestedApp
I hope this helps.....