vbs 写txt日志

Public Sub WriteLineToFile(message)

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fileSystemObj, fileSpec

Dim currentTime

currentDate = Date

currentTime = Time

testName = "log"

Set fileSystemObj =CreateObject("Scripting.FileSystemObject")

fileSpec ="d:\" &testName& ".txt" 'change this according to your directory

If Not (fileSystemObj.FileExists(filespec)) Then 

Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, 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, True)

logFile.WriteLine (currentDate &","&currentTime & " " & message)

logFile.Close

Set logFile = Nothing

Set fileSystemObj = Nothing

End Sub

Call WriteLineToFile("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")