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

mmysloves

'启动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 blnNcAddins  Then
                Qtp.Quit
        End If

        '重新加载插件
        If blnNcAddins Then
                Dim blnActivateOK
                '加载相关插件并且检查是否加载成功
                 blnActivateOK = Qtp.SetActiveAddins(arrTestAddins,errorDescription)
                 If Not         blnActivateOK  Then
                         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.Run  QtOptions,True          报错是报这句，改来改去不知道错在哪。
Qtp.Test.Save                  '保存测试脚本
Qtp.Quit                        't退出QTP   
Set QtOptions = Nothing                 '释放QtOptions对象
Set Qtp = Nothing                 '释放应用程序对象

求救大神。

黑羽祭

回复 1# mmysloves


    路径写错了吧

Alvin-x

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