GetDateTimeForLogfile - ログファイルリネーム用の日付時刻文字列

ちょっと VBScript に手を出していこうと思います。
ということで、CMD でやるよりも柔軟性が高いので、Function や Class を書いたらメモして行こうかなと。

ログファイルを１処理ごとにリネームしたい場合、日付と時刻を入れておくのが経験上一番良いと思ってます。その時に使う日付＠時刻というフォーマットを出力する関数サンプル。

Function GetDateTimeForLogfile()
    GetDateTimeForLogfile = ""
    Dim strNow, strYear, strMonth, strDay, strHour, strMin, strSec
    strNow = Now
    strSec = Second(strNow)
    If Len(strSec) = 1 Then strSec = "0" & strSec
    strMin = Minute(strNow)
    If Len(strMin) = 1 Then strMin = "0" & strMin
    strHour = Hour(strNow)
    If Len(strHour) = 1 Then strHour = "0" & strHour
    strDay = Day(strNow)
    If Len(strDay) = 1 Then strDay = "0" & strDay
    strMonth = Month(strNow)
    If Len(strMonth) = 1 Then strMonth = "0" & strMonth
    strYear = Year(strNow)

    GetDateTimeForLogfile = strYear & "_" &_
        strMonth & "_" &_
        strDay & "@" &_
        strHour & "_" &_
        strMin & "_" &_
        strSec
End Function