QTP是否能够直接把外部VBS文件路径写入到Resource中，求教

fengdishudu444

如题：QTP是否能够直接把外部VBS文件路径写入到Resource中，就像用PathFinder.insert 写入相对路径一样？

Shawn_xiao

executefile 但是不建议用 不方便debug

fengdishudu444

回复 2# Shawn_xiao


    executefile 还是直接调用的外部VBS并没有写入到QTP的resource中，  我的意思是直接把外部VBS的路径写入到QTP file-setting-resource中，就好想直接手动在QTP中加载外部VBS一样。不知道是否有方法实现？

黑羽祭

回复 1# fengdishudu444 为什么要这么使用？
如果是怕脚本复制到别的电脑上找不到VBS文件，可以使用相对路径

fengdishudu444

回复 4# 黑羽祭

不想手动加载vbs文件  嘿嘿  excutefile 如2楼所说  不方便debug  所以还是想用qtp自带的

fengdishudu444

回复 4# 黑羽祭

不想手动加载vbs文件  嘿嘿  excutefile 如2楼所说  不方便debug  所以还是想用qtp自带的

正在更新

回复 1# fengdishudu444


    直接给你CODE吧


Dim qtApp
Dim qtLibraries
Dim lngPosition

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

qtApp.Open "C:\Test", False, False '打开一个测试工程


Set qtLibraries = qtApp.Test.Settings.Resources.Libraries '引用资源库对象

If qtLibraries.Find("C:\FunLib.vbs") = -1 Then '判断预期的资源是否存在并加载

    qtLibraries.Add "C:\FunLib.vbs", 1

End If

Set qtLibraries = nothing
Set qtApp = nothing

SexyCat_1113

executefile 别用这个，容易出错，，，

用LoadLibrary，忘记是不是这么拼的，查一下索引就有了，，，

fengdishudu444

回复 7# 正在更新


    非常感谢“正在更新”，   你给的代码很好用

bichenlu

为什么不用setting直接设置呢

fengdishudu444

回复 10# bichenlu

脚本多了，总不能挨个去设置吧，换个环境，路径变了的话就要重新去加载。

把7楼的代码封装成个函数，在脚本里直接调用下，那不是省下很多功夫吗？

正在更新

实际项目中 手动操作QTP设置的过程 一般都要代码化实现，如果贵司将QTP集成到了自动化框架中的的话，代码初始化QTP的设置 是必然的！

shanfeng1419

学习了

fengdishudu444

回复 12# 正在更新


    您所说的我已应用到了我们的框架中，非常感谢。在请教一下，这里面所涉及到的方法您是在哪看到的啊？在注册表中吗？

026300

可以