TA的每日心情 | 开心 2015-2-13 16:31 |
---|
签到天数: 4 天 连续签到: 1 天 [LV.2]测试排长
|
为什么按照下面的的vbs执行后,一切都正常,但就 "F:\自动化测试结果"这个目录下没有任何测试结果,这是怎么回事呢?
Dim qtApp
Dim qtTest
Dim qtResultsOpt
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
'Set QuickTest run options
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
qtApp.Options.Run.RunMode = "Fast"
qtApp.Open "F:\脚本及程序\qtp脚本\ZYZL", True
'set run settings for the test
Set qtTest = qtApp.Test
qtTest.Settings.Run.OnError = "NextStep"
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = "F:\自动化测试结果"
qtTest.Run
'qtTest.Close ' Close the test
Set qtResultsOpt = Nothing
Set qtTest = Nothing
Set qtApp = Nothing |
|