昨日か一昨日から研究をし始めて
やっと納得のいくものが出来ました。
ファイル名は、自動生成され
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
