ちょっと VBScript に手を出していこうと思います。
ということで、CMD でやるよりも柔軟性が高いので、Function や Class を書いたらメモして行こうかなと。
ログファイルを1処理ごとにリネームしたい場合、日付と時刻を入れておくのが経験上一番良いと思ってます。その時に使う日付@時刻というフォーマットを出力する関数サンプル。
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
ということで、CMD でやるよりも柔軟性が高いので、Function や Class を書いたらメモして行こうかなと。
ログファイルを1処理ごとにリネームしたい場合、日付と時刻を入れておくのが経験上一番良いと思ってます。その時に使う日付@時刻というフォーマットを出力する関数サンプル。
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