Dim qtApp
Dim qtLibraries
Dim lngPosition
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
qtApp.Open "C:\Test", False, False '打开一个测试工程
Set qtLibraries = qtApp.Test.Settings.Resources.Libraries '引用资源库对象
If qtLibraries.Find("C:\FunLib.vbs") = -1 Then '判断预期的资源是否存在并加载
qtLibraries.Add "C:\FunLib.vbs", 1
End If
Set qtLibraries = nothing
Set qtApp = nothing
Dim qtLibraries
Dim lngPosition
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
qtApp.Open "C:\Test", False, False '打开一个测试工程
Set qtLibraries = qtApp.Test.Settings.Resources.Libraries '引用资源库对象
If qtLibraries.Find("C:\FunLib.vbs") = -1 Then '判断预期的资源是否存在并加载
qtLibraries.Add "C:\FunLib.vbs", 1
End If
Set qtLibraries = nothing
Set qtApp = nothing