QTP写文本到txt文件的Sub过程Sub TestResultLog

UFT（QTP）中自动化测试脚本开发时，有时候需要记录一些信息到文本文件中，以下是一个SUB过程的示例，涉及的技术点：

1. 获取自动化测试脚本的当前路径

2. 字符串组织

3. FSO对象

4. 日期、时间格式规范

'============================================================
' 过 程 名 :		TestResultLog
' 功能说明 :	 	将日志信息输入到txt日志文件中
'				（日志路径为： "..\..\Test_ResultLog\TestResult_log.txt"）
' 输入参数 :  	judgment	是否登录成功（BOOL）
'		UserName	登录的用户名
'（调用示例： TestResultLog    true,"aaaaaa"）
' 返回值：无
'===========================================================
Sub TestResultLog(judgment, UserName)
	Dim strSuccess,strFail,fso,myfile,strTime
	Dim logpath
	
	logpath=environment("TestDir")+"\..\..\Test_ResultLog\TestResult_log.txt"
	strTime="[" & date & " " & mid(time,1,5) & "]"
	strSuccess=strTime & " 账户“" & UserName & " 登录成功"
	strFail=strTime & " 账户“" & UserName & " 登录失败"
	Set fso=CreateObject("Scripting.FileSystemObject")
	'判断文件是否存在，如果存在打开，否则创建
	If (fso.FileExists(logpath)) Then
		'定义常量intCode，作为打开文件函数的参数，防止写入数据是Unicode乱码
		Const intCode=-1
		Set myfile=fso.OpenTextFile(logpath,8,true,intCode)
	else
		Set myfile=fso.CreateTextFile(logpath,2,true)
	End If
	
	If judgment Then
		myfile.WriteLine  strSuccess
	else
		myfile.WriteLine   strFail
	End If

	myfile.Close
	set myfile=nothing
	set fso=nothing
End Sub