QTP加载Lib

         '创建qtp对象
         Set qtApp = CreateObject("QuickTest.Application")
 
         qtApp.Launch
 
         qtApp.Visible = False
 
        '打开qtp文件
         On Error Resume Next
         qtApp.Open "F:\TEST\1.TEST_QTP\00.Test Flow\QTP_APPLICATION\Tests\CytExpert_ExperimentOperate", False, False
         If err.number <> 0 Then
          MsgBox "打开qtp文件失败！"
          qtApp.Quit
          Set qtApp = nothing
          'Exit Sub
         End If
 
        '加载vbs文件
 
         Set qtLibraries = qtApp.Test.Settings.Resources.Libraries
 
         qtLibraries.Add "d:\testLib.vbs"
 
        '保存QTP文件并退出
         qtApp.Test.Save
 
         qtApp.Quit
 
         Set qtLibraries = Nothing
         Set qtApp = Nothing
   msgbox "完成"