在qtp中使用vb script 实现写文件功能

在qtp中使用vb script 实现写文件功能，这样可以在写测试脚本的时候，将一些信息记录到文本文件中。下面是具体的写法。

Dim fs,fopen,fname
Dim strMessage

strMessage = "this is a test!"

'创建以当前日期为文件名字的文件
fname = "e:/"&date&".txt"
set fs = CreateObject("Scripting.FileSystemObject")
set fopen = fs.OpenTextFile(fname,8,true)
fopen.writeline(cstr(strMessage))

fopen.close
set fopen = nothing
set fs = nothing