'向指定的文件写字符串,第三个参数指定是否删除原来的内容
Function Z_WriteLog(sFileName, sText)Dim fs, fso, sLogsLog = Now() & ": " & sTextset fs = CreateObject("Scripting.FileSystemObject")set fso = fs.OpenTextFile(sFileName, 8, True) '第三个参数表明文件不存在,则新建文件fso.WriteLine sLogfso.Closeset fso = Nothingset fs = Nothing
End Function
转载于:https://www.cnblogs.com/joeblackzqq/archive/2011/02/28/1967358.html