Creating a variable list to use throughout my scripts

[rajpes]

Code:

'*HAPPY B'DAY LORENA*
VariableList = "O:\QTP Tests\Objec Repository\ImageAccessVariableList.txt"
Set objQTPApp = CreateObject("QuickTest.Application")
objQTPApp.Launch
objQTPApp.Visible = True
Set objQTPLibraries = objQTPApp.Test.Settings.Resources.Libraries
If objQTPLibraries.Find(VariableList) <> -1 Then
objQTPLibraries.RemoveAll
End if
objQTPLibraries.Add (VariableList)
Reporter.ReportEvent micPass, "Variable List", "The ImageAccessVariableList.txt is freshly attached"
Set objQTPApp = Nothing