associate vbs

[learner1]

Hi
can we associte vbs at runtime
basicaly my requirement is to implement case statement
case select var
case "A"
associate vbs a
case "B"
associate vbs b
end select

i dont want to use executefile as it does not provide ood debugging mechansm and also on some error it points to some other line of the code

also associating vbs using test->settings (manully) => loads all vbs at before the actual code execution start and makes us wait for long

[rajeshwar]

Hi,

If you want to associate vbs before the QTP Application is launched, you can do it in following way.

Code:

Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Test.Settings.Resources.Libraries.RemoveAll
var  = "A"
Select case var
    case "A":App.Test.Settings.Resources.Libraries.Add "D:\A.vbs"
    case "B":App.Test.Settings.Resources.Libraries.Add "D:\b.vbs"
End Select
Set App = Nothing

[Ankur]

This functionality is added in QTP 11 now Check the new features of QTP 11 here