写文本到txt文件的Sub过程

附：写文本到txt文件的Sub过程Sub TestResultLog


'============================================================
' 过 程 名 : 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




vbs 字符串函数   http://blog.chinaunix.net/uid-24917554-id-3146622.html