QTP写Log文件

 '*******************************
'@Description 打印Log
 '********************************
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("Scripting.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