在脚本中怎么访问TD中作为附件的数据文件？

lyghe

我自己解决了。参见：http://bbs.51testing.com/thread-143038-1-1.html



用vbScript的文件机制打开存放在TD中的文件，文件的路径怎么写啊？
虽然ExecuteFile可以用"[QualityCenter]"来定位，但是这次要打开的不是脚本，而是普通的数据文件，该怎么打开呢？

'代码如下

'这一句会报告文件找不到
MsgBox FileContent( "[QualityCenter] Subject\Test\TestData.txt" )

Function FileContent( filePath )
        '打开文件
        Const ForReading = 1, ForWriting = 2
        Dim fso, f
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set f = fso.OpenTextFile(filePath, ForReading, False, True)

        '读取内容
        If Not f.AtEndOfStream Then        '一定要加判断，否则当文件为空时会报错“输入超出了文件尾”
                FileContent = f.ReadAll
        End If
        MsgBox FileContent

        '关闭文件
        f.Close
        Set f = Nothing
        Set fso = Nothing
End Function

[ 本帖最后由 lyghe 于 2009-3-13 14:31 编辑 ]

lyghe

找到一个类似的帖子：请教有关QTP中脚本读取QC附件的问题
http://bbs.51testing.com/thread-133586-1-8.html
提出了一个方法：
dim CurrentTest
set CurrentTest = QCUtil.CurrentTest
Set attf = CurrentTest.Attachments
Set attList = attf.NewList("")
Set att = attList.Item(1)
If att.Type = TDATT_FILE Then
  att.Load True, "c:"
  str = att.FileName
  Msgbox str
End If
可以访问当前测试下的附件，而且访问的是在本地临时文件夹中的副本。

个人猜想，既然QC是通过IIS发布的，那么肯定不可能直接访问QC中的附件，只能访问本地临时副本。

现在要解决的问题是：如何访问任何位置的附件的临时副本？

[ 本帖最后由 lyghe 于 2009-3-12 11:52 编辑 ]