QTP中获取当前路径的方法

最新推荐文章于 2020-10-22 10:15:41 发布

转载最新推荐文章于 2020-10-22 10:15:41 发布 · 1.2k 阅读

本文详细介绍了QTP9.2中获取测试路径、QTP安装目录下bin目录路径以及vbs文件路径的方法，包括环境变量、WScript.Shell属性及左字符串截取等技巧，并解释了它们在不同场景下的应用区别。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

实属转帖，方便以后查找

QTP9.2版本，以下内容适合QTP和vbs。

路径一：QTP的测试当前路径

environment("TestDir")

使用environment("TestDir")能获取当前测试的绝对路径，不包括最后的“\”

方法：

Path = environment("TestDir")

路径二：

WshShell.CurrentDirectory

（注：不包括地址最后的“/”）

方法：

Dim WshShell,path

Set WshShell = WScript.CreateObject("WScript.Shell")

Path = WshShell.CurrentDirectory

以上为vbs中的用法，

如果是在QTP中使用，

则可以用以下方法（vbs也可以用以下方法）：

Dim WshShell,path

Set WshShell = CreateObject("WScript.Shell") „

就这一句少了

“WScript”

Path = WshShell.CurrentDirectory

注意

：此方法在

】QTP

运行时获取的将是

QTP

安装目录下

bin

目录的路径，如果是写在

vbs

文件中，然后加载到

QTP

中，

在

QTP

运行时也是获取

QTP

安装目录下

bin

目录的路径。但

是如果是编辑一个测试脚本

（脚本里包含此获取路径方法，

或引用的

vbs

文件包含此获取路

径方法），然后保存（不要关闭脚本），这时运行脚本，则此方法将获取测试脚本存放的当

前路径。关闭脚本再打开运行，则还是会获取

QTP

安装目录下

bin

目录的路径。因此在调

试时可能是正常的，但到运行时就出错了。

而如果用

environment("TestDir")

，

则获取的都是当前测试的存放路径，

但是不能用在

VBS

文件中（除非此文件是加载到

QTP

中运行的，那就可以）。

例：

QTP

安装目录下的

bin

路径：

C:\program files\Mercury Interactive\QuickTest

Professional\bin

路径三：

vbs

文件的路径

left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))

（注：包括地址最后的

“/”

）

方法：

Path = left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))

注意

：此方法只能用在单独的

vbs

文件中，加载到

QTP

中的

vbs

文件如果含有此方法也会

报错。因为

QTP

不支持

WScript

。