|
我自己解决了。参见: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 编辑 ] |
|