qtp res生成指定路径设置

zhangwl0417

Dim qtApp
Dim qtTest
Dim qtResultsOpt

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True


qtApp.Options.Run.ImageCaptureForTestResults = "OnError"

qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False

qtApp.Open "F:\Tests\Test3", True


Set qtTest = qtApp.Test
qtTest.Settings.Run.IterationMode = "rngIterations"
qtTest.Settings.Run.StartIteration = 2
qtTest.Settings.Run.EndIteration = 4
qtTest.Settings.Run.OnError = "NextStep"

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = "F:\Tests\Test1"

qtTest.Run qtResultsOpt

MsgBox qtTest.LastRunResults.Status
qtTest.Close

Set qtResultsOpt = Nothing
Set qtTest = Nothing
Set qtApp = Nothing


这段代码可以实现但是我不想要自动打开qtp脚本

我只想实现
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = "F:\Tests\Test1"
理想结果是 打开qtp脚本（新的）已经把res指定到我想要放的文件夹下
最好是qtp初始化的时候用VBS就把所有设定好了的（别的设定都可以实现现在就res生成路径指定不了）
请高手指点下

hsjzfling

resultDir环境变量的值是可以想办法改掉的，但设置这个值还是不能帮你去修改run时候的res路径。

zhangwl0417

大虾们帮帮忙啊！！！

zhangwl0417

qtp配置里有个resultDir环境变量可不可以把它的默认路径该成相对路径！
我只想把res该为相对路径 有办法实现吗？?

[ 本帖最后由 zhangwl0417 于 2009-8-21 14:38 编辑 ]

hsjzfling

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = "F:\Tests\Test1"
这样设定之后，需要将qtResultsOpt作为run的参数执行才能自动指定结果路径的
qtTest.Run qtResultsOpt

qtResultsOpt并不是QuickTest.Application中的对象，并不能将该设置保存在当前QTP实例中。