昨日か一昨日から研究をし始めて
やっと納得のいくものが出来ました。
ファイル名は、自動生成され
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
2006年4月12日水曜日
拡張子 bat 変更 出来ない
【環境】
OS:Windows2000
PC:Dell Latitude D410
【現象】
いずれのファイルも拡張子をbatに変更することが出来ない
変更をしようとすると
---------------------------
ファイルまたはフォルダ名の変更エラー
---------------------------
新規テキスト ドキュメント の名前を変更できません。アクセスできません。
ディスクがいっぱいでないか、書き込み保護されていないか、
またはファイルが使用中でないか確認してください。
---------------------------
OK
---------------------------
と表示されます
【確認事項】
拡張子の表示はされています。
batファイル以外への拡張子の変更であれば、正常に行えます。
txt→bat ×
txt→log ○
doc→txt ○
doc→bat ×
拡張子batにしようとすると、エラーが表示されます。
どなたかアドバイスをお願いします。
足りない情報があればお申し付けください。
( ゜З゜)batがダメならcmdにすればいいじゃない。
>cmdならOKでした
ありがとうございます。
OS:Windows2000
PC:Dell Latitude D410
【現象】
いずれのファイルも拡張子をbatに変更することが出来ない
変更をしようとすると
---------------------------
ファイルまたはフォルダ名の変更エラー
---------------------------
新規テキスト ドキュメント の名前を変更できません。アクセスできません。
ディスクがいっぱいでないか、書き込み保護されていないか、
またはファイルが使用中でないか確認してください。
---------------------------
OK
---------------------------
と表示されます
【確認事項】
拡張子の表示はされています。
batファイル以外への拡張子の変更であれば、正常に行えます。
txt→bat ×
txt→log ○
doc→txt ○
doc→bat ×
拡張子batにしようとすると、エラーが表示されます。
どなたかアドバイスをお願いします。
足りない情報があればお申し付けください。
( ゜З゜)batがダメならcmdにすればいいじゃない。
>cmdならOKでした
ありがとうございます。
登録:
投稿 (Atom)