如何通过脚本将文件加入File>Settings>Resources中

jimmyzhou

如何通过脚本将文件加入File>Settings>Resources中
脚本中用到一些数据是保存在这个文件中的，有什么办法可以获取到呢

manhong

已经加入了，qtp就直接可以用吧。
txt和vbs应该是一样的

intothestorm

Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Test.Settings.Run.ObjectSyncTimeOut = 20000
App.Test.Settings.Run.OnError = "Stop"
App.Test.Settings.Resources.Libraries.RemoveAll
App.Test.Settings.Resources.Libraries.Add("lib\1.vbs")
App.Test.Settings.Resources.Libraries.Add("lib\2.vbs")
App.Test.Settings.Resources.Libraries.Add("lib\3.vbs")
App.Test.Settings.Resources.Libraries.Add("lib\4.vbs")
App.Test.Settings.Resources.Libraries.Add("lib\5.vbs")
App.Test.Settings.Resources.Libraries.SetAsDefault
App.Test.Environment.LoadFromFile("Test-Parameters\QTP_Params.xml")

blizzardlyk

直接用调用文件的方法
execultfile ("d:\test.txt")
或者用VBS自身的方法 创建文件对象去读取文件内容,但是这个方法有点小题大作了

ziheng198688

原帖由 intothestorm 于 2009-5-22 18:12 发表
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Test.Settings.Run.ObjectSyncTimeOut = 20000
App.Test.Settings.Run.OnError = "Stop"
App.T ...

学习了 呵呵