Teraterm自動ログ.vbs完成 teraterm auto log YYMMDD-HHMM.log style

昨日か一昨日から研究をし始めて
やっと納得のいくものが出来ました。
ファイル名は、自動生成され
YYMMDD-HHMM.log
の形になります。
日付や時間が
1桁の場合も最初に0が付きます。
↑これが苦労した。。
日付や時間が一桁になると、ちゃんと並ばないんだもん。


***************************
Dim WshShell, AppName, oExec, NowTime, LogPath, LogName
Dim dtmNowDate

'Get current date and time

dtmNowDate = Now()


'Set log file, YYMMDD-HHMM.log style

LogPath = "D:\Teralog\"
LogName = LogPath & _
Right("0" & Year(dtmNowDate), 2) & _
Right("0" & Month(dtmNowDate), 2) & _
Right("0" & Day(dtmNowDate), 2) & "-" & _
Right("0" & Hour(dtmNowDate), 2)& _
Right("0" & Minute(dtmNowDate), 2) & _
".log"

'Set application command line
AppName = "C:\Program Files\teraterm\ttermpro.exe" & _
" /L=" & LogName

'Startup TeraTerm program
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(AppName)

***************************
参考URL
http://www.whitire.com/vbs/tips0042.html
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=16597&forum=10&3