'完成后写入日志
Dim FileName, FileLog
Dim fs, fso
FileName = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path & "\FileLog.txt"
FileLog = Now() & ": " & ",异常信息:" & Err.Description
Set fs = CreateObject("Scripting.FileSystemObject")
Set fso = fs.OpenTextFile(FileName, 8, True) '第三个参数表明文件不存在,则新建文件
fso.WriteLine FileLog
fso.Close
Set fso = Nothing
Set fs = Nothing
vbs 持续写入数据到文件
最新推荐文章于 2024-01-21 20:01:13 发布
这段博客内容展示了一段代码,用于完成操作后将日志信息写入文件。代码通过创建文件系统对象,获取当前路径下的 FileLog.txt 文件,将当前时间和异常信息组合成日志内容,若文件不存在则新建,最后将日志写入文件并关闭相关对象。

1581

被折叠的 条评论
为什么被折叠?



