QTP日志输出

Option Explicit '强制变量声明
Const ForReading= 1,ForWriting = 2,ForAppending = 8'1读 2写 3追加写
Dim fso,file
Set fso= CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("d:\test.txt", true)
file.write "=================================="
file.WriteBlankLines(1) '换行，相当于一个回车
file.write"登陆成功"
file.WriteBlankLines(1)
file.write "=================================="

file.Close
Set file = Nothing
Set fso= Nothing