修改完善的写log文件的QTP脚本

参考自：http://bbs.51testing.com/thread-79991-1-1.html

Public Sub WriteLogs(result)
 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 Dim fileSystemObj, fileSpec
 Dim currentTime, currentDate, logName, logFile, message
 currentDate = Date
 currentTime = Time
 logName = "log"
 Set fileSystemObj = CreateObject("scrīpting.FileSystemObject")
 fileSpec ="D:\" &logName& ".txt" 'change this according to your directory
 If not (fileSystemObj.FileExists(fileSpec)) Then 
  Set logFile = fileSystemObj.CreateTextFile(fileSpec, True) 
  logFile.WriteLine ("############################################################################################")
  logFile.WriteLine (currentDate & "  " & currentTime & " Test: " & environment.Value("TestName") )
  logFile.WriteLine ("############################################################################################")
  logFile.Close 
  Set logFile = Nothing
 End If
 Set logFile = fileSystemObj.OpenTextFile(fileSpec, ForAppending, False)
 'result = "本测试用例通过！"
 logFile.WriteLine (currentDate & "  " & currentTime & "  " & result )
 logFile.Close
 Set logFile = Nothing
 Set fileSystemObj = Nothing
End Sub