51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3078|回复: 14
打印 上一主题 下一主题

[原创] 如何更便捷地获得当前test路径

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-8-30 00:13:32 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我想知道QTP里面有没有更方便,更简短的获得当前运行的test的路径的方法。

这是我自己写的,貌似偏长偏繁了点。
不知道谁有更便捷的没?

[code]
'Create a temp file which named testfile.txt (the path as follow scripts)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\QtpWorkFolder\Path\TempPath\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

Dim reportPath, testPath
'Get the path of current test's report
reportPath = Reporter.ReportPath
'Show me the report path
MsgBox ("The Test Report Path is: " & reportPath)
'Cut the folder name of the result
testPath = Right(reportPath, 2)
If testPath <= "99" and testPath >= "10" Then
        testPath = Left(reportPath, Len(reportPath) - 5)
Else
        testPath = Left(reportPath, Len(reportPath) - 4)
End If
'Show me the test path
MsgBox ("The Test Path is: " & testPath)[/code]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-8-30 00:49:17 | 只看该作者
hehe, QTP环境变量里有现成的,好像叫TestPath啥的!
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2007-8-30 01:06:24 | 只看该作者
直接调用系统环境变量: Environment("TestDir")
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2007-8-30 11:54:08 | 只看该作者
楼主可以点击“file”->"setting"->"environment"里面列出的build-in的所有的列表就是系统环境变量
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2007-8-30 14:10:06 | 只看该作者
msgbox environment.Value("TestDir")
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2007-8-30 16:01:33 | 只看该作者
楼上的你写的不对。
这个帖子有点搞笑,楼主要分享成就,结果被大家一顿纠正sdlkfj3
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2007-8-30 16:27:32 | 只看该作者
呵呵,楼主精神可嘉

不过——
回复 支持 反对

使用道具 举报

该用户从未签到

8#
 楼主| 发表于 2007-8-30 17:58:14 | 只看该作者
原帖由 jackymail 于 2007-8-30 16:01 发表
楼上的你写的不对。
这个帖子有点搞笑,楼主要分享成就,结果被大家一顿纠正sdlkfj3


其实,我是想知道更简便的方法。
倒不是来分享的,而是告诉大家我现在用的比较麻烦。别和我用一样的。
有简单的一定用简单的,便于维护。
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    9#
    发表于 2007-8-30 23:54:09 | 只看该作者
    楼主可以使用一下 #3 和#5 的方式试试
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
     楼主| 发表于 2007-8-30 23:56:37 | 只看该作者
    已经用了,在这方面效果一样。
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    11#
    发表于 2007-8-31 00:12:07 | 只看该作者
    原帖由 joseph_wh 于 2007-8-30 23:56 发表
    已经用了,在这方面效果一样。


    它们的效果本来就是一样的,就像获得某个 sheet 的某个ParameterID 的值一样,你可以使用
    DataTable.Value(ParameterID [, SheetID])

    也可以使用 DataTable(ParameterID [, SheetID]) 。
    你可以把后面一个理解为前面一个的缩写形式。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    12#
    发表于 2007-8-31 10:13:40 | 只看该作者
    哦,原来这样。。下次我不发言。抱歉。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    13#
    发表于 2007-8-31 10:23:37 | 只看该作者
    5楼的方法快捷又简洁!爽
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    14#
     楼主| 发表于 2007-8-31 10:24:32 | 只看该作者
    呃...
    童言无忌嘛。
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    15#
    发表于 2007-8-31 10:30:08 | 只看该作者
    原帖由 jackymail 于 2007-8-31 10:13 发表
    哦,原来这样。。下次我不发言。抱歉。


    呵呵!童言无忌!
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-25 05:55 , Processed in 0.071503 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表