How to associate function library at runtime in UFT- Complete code

Unlike object repository, both of these library types can be added as an external dependency file into UFT.

This can be achieved either through the settings window of UFT by providing the location of the file or at runtime through code.

In order to associate function library at runtime, first you need to create an object of Settings like below.

Set qtLibraries = qtApp.Test.Settings.Resources.Libraries

Now you can add a function library to this object by using add method of this object like below:

qtLibraries.Add "D:\libraary.vbs", 1 

Once this statement is executed, the function library is loaded into the scope of execution. This can be used to associate both types of function libraries i.e. .qfl and .vbs.

Please find below the complete example code snippet on how to add a function library at runtime in UFT.

How to associate function library at runtime in UFT- Code Snippet

Dim qtApp
Dim qtTest
Dim qtLibraries
'Create the QTP Application object
Set qtApp = CreateObject("QuickTest.Application")
'If QTP is notopen then open it
If  qtApp.launched <> True then
qtApp.Launch
End If
'Make the QuickTest application visible
qtApp.Visible = True
qtApp.Open "C:\Program Files\HP\QuickTest Professional\Tests\trial", False
'Get the libraries collection object
Set qtLibraries = qtApp.Test.Settings.Resources.Libraries
'If the library file "libraary.vbs" is not assiciates with the Test then associate it
If qtLibraries.Find("D:\libraary.vbs") = -1 Then
    qtLibraries.Add "D:\libraary.vbs", 1 
End If
'Save the test
qtApp.Test.Save
'Close QTP
qtApp.quit
'Release Object
Set qtLibraries = Nothing
Set qtTest = Nothing ' Release the Test object
Set qtApp = Nothing ' Release the Application object