概要

ログファイルは、C:\ttermlog の下に YYYYMMDD-HHMMSS.logという形式で生成されます。

コード

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)

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2008-10-22 (水) 11:51:32 (5724d)