vbs向指定的日志文件添加日志

?

'向指定的文件写字符串，第三个参数指定是否删除原来的内容

Function Z_WriteLog(sFileName, sText)

    Dim fs, fso, sLog

    sLog = Now() & ": " & sText

 

    set fs = CreateObject("Scripting.FileSystemObject")

    set fso = fs.OpenTextFile(sFileName, 8, True)  '第三个参数表明文件不存在，则新建文件

    fso.WriteLine sLog

    fso.Close

    set fso = Nothing

    set fs = Nothing

End Function