vbs 持續寫入數據到文件

'完成後寫入日誌
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