软件测试论坛 › [QuickTest Professional] › 谁能帮我看一下到底问题在哪？

mmysloves 发表于 2013-9-26 21:16:05

谁能帮我看一下到底问题在哪？

本帖最后由 mmysloves 于 2013-9-26 21:28 编辑

'启动QTP程序

Dim Qtp
Dim arrTestAddins
Dim blnNcAddins
Set Qtp =createobject("QuickTest.Application") '创建一个QTP应用程序实例对象
arrTestAddins = Qtp.GetAssociatedAddinsForTest("D:\mercury")
                blnNcAddins =false
For each testAddins in arrTestAddins
        '如果插件未加载，则加载修改插件的关联设置
        If Qtp.Addins(TestAddins).Status <> "Active" Then
                blnNcAddins = true
                Exit for
                End If
        Next

        ' 如果需要修改插件设置，则退出QTP
        If Qtp.Launched and blnNcAddinsThen
                Qtp.Quit
        End If

        '重新加载插件
        If blnNcAddins Then
                Dim blnActivateOK
                '加载相关插件并且检查是否加载成功
               blnActivateOK = Qtp.SetActiveAddins(arrTestAddins,errorDescription)
               If Not       blnActivateOKThen
                       msgbox         errorDescription
                       WScript.Quit
               End If
        End If
        If Not Qtp.Launched Then
        Qtp.Launch
        End If
Qtp.Visible = true
Qtp.Open "D:\mercury",False
Dim QtOptions
Set QtOptions = createobject("QuickTest.RunResultsOptions")                '设置运行结果存储到相对的目录上
QtOptions.ResultsLocation = "C:\"
Qtp.Test.RunQtOptions,True          报错是报这句，改来改去不知道错在哪。
Qtp.Test.Save                '保存测试脚本
Qtp.Quit                        't退出QTP   
Set QtOptions = Nothing                 '释放QtOptions对象
Set Qtp = Nothing                 '释放应用程序对象

求救大神。:'(

Alvin-x 发表于 2013-9-27 09:12:20

错了的是上面一句，改成具体路径就OK了如：C:\folderName

黑羽祭 发表于 2013-9-27 11:30:40

回复 1# mmysloves


    路径写错了吧

查看完整版本: 谁能帮我看一下到底问题在哪？