51Testing软件测试论坛

标题: 在脚本中怎么访问TD中作为附件的数据文件？ [打印本页]

作者: lyghe 时间: 2009-3-12 11:28
标题: 在脚本中怎么访问TD中作为附件的数据文件？
我自己解决了。参见：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 时间: 2009-3-12 11:45
找到一个类似的帖子：请教有关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 编辑 ]

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)