QTP中将数据写入txt文件

Dim objFSO,objFile,strText
Set bjFSO=createobject("scripting.FileSystemObject")
Set bjFile=objFSO.CreateTextFile( Reporter.ReportPath  & "\新建 文本文档 (10).txt",True)

For i = 1 to 3
 objFile.WriteLine "Hello World" & i
 objFile.WriteBlankLines 1
Next

objFile.close
Set bjFile=Nothing
Set bjFSO=Nothing