'*******************************
'@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
'@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