［Script］［VBS］日付・時刻を書き込んでログファイルを作る（FormatDateTime）

VBScriptの実行ログをログファイルに書きながら処理します。

こんな風にログを作ります。

[2014/11/04 0:31:25] Script Start
[2014/11/04 0:32:16] xxxx
[2014/11/04 0:32:18] xxxx
[2014/11/04 0:32:24] Script End

日付・時刻を書き込んでログファイルを作る

strLogFile = "D:\Logs\Script.log"
Set objFSO = CreateObject("Scripting.FileSystemObject")

strLogMsg = "Script Start" : LogWrite(strLogMsg)

'==========
'処理を行う
'==========

strLogMsg = "Script End" : LogWrite(strLogMsg)

WScript.Quit


Function LogWrite(strMsg)

  ' 日付、時刻を取得
  strMsg = "[" & FormatDateTime(Now, 0) & "]" & Space(1) & strMsg

  'ファイルを追記モードで開く
  Set objFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)

  'ファイル書き込み
  objFile.WriteLine strMsg

  'ファイルクローズ
  objFile.Close

  LogWrite = 0
End Function

---

Script のページに戻る