複数の自作バッチプロラムの共有ログを採取する方法
複数の自作バッチプロラムの共有ログを採取する方法
os:windows xp
バッチプログラムの開始前後にログ出力をします。
普通にバッティングせずに動くと、後述のサンプル・ログ(1)のように綺麗にとれます。
しかし、
バッティングした際に正しく取れません。
dos batファイルでやったところ、掴んでいるときに後から行った方の出力がされません。
→ サンプル・ログ(1)
それならと、
vbsで同じ事を作ってみました。
すると、掴んでいるときに後から行った方がエラーでコケました。
ファイルの定義やオープンの時に「掴んでいたら無制限に待つ」とか「タイムアウトまで待つ」とか、そういう事はできるでしょうか？
複数のアプリから同じファイルにＩＯするには仕組みとして何かが足りないのでしょうか？
以上、よろしくお願いします。
■サンプル・ログ
(1)
===== FILE_TIME.log =====
2010/03/05- 9:00:00.00,処理１,開始
2010/03/05- 9:00:00.00,処理２,開始
2010/03/05- 9:30:00.00,処理１,終了
2010/03/05- 9:40:00.00,処理２,終了
===== FILE_TIME.log =====
(2)
===== FILE_TIME.log =====
2010/03/05- 9:00:00.00,処理１,開始
2010/03/05- 9:30:00.00,処理１,終了
2010/03/05- 9:40:00.00,処理２,終了
===== FILE_TIME.log =====
■サンプル・バッチファイル
===== Shori1.bat =====
@echo off
echo %date%-%time%,処理１,開始 >> FILE_TIME.log
rem 処理１呼び出し
echo %date%-%time%,処理１,終了 >> FILE_TIME.log
===== Shori1.bat =====
===== Shori2.bat =====
@echo off
echo %date%-%time%,処理２,開始 >> FILE_TIME.log
rem 処理２呼び出し
echo %date%-%time%,処理２,終了 >> FILE_TIME.log
===== Shori2.bat =====
■サンプル・ｖｂｓ
===== Shori1.vbs =====
Set ObjSFS = WScript.CreateObject("Scripting.FileSystemObject")
Set ObjLogFile = ObjSFS.OpenTextFile("FILE_TIME.log", 8, True)
ObjLogFile.WriteLine Now() & ",処理１,開始"
ObjLogFile.Close
rem 処理１呼び出し
Set ObjLogFile = ObjSFS.OpenTextFile("FILE_TIME.log", 8, True)
ObjLogFile.WriteLine Now() & ",処理１,終了"
ObjLogFile.Close
===== Shori1.vbs =====
===== Shori2.vbs =====
Set ObjSFS = WScript.CreateObject("Scripting.FileSystemObject")
Set ObjLogFile = ObjSFS.OpenTextFile("FILE_TIME.log", 8, True)
ObjLogFile.WriteLine Now() & ",処理２,開始"
ObjLogFile.Close
rem 処理２呼び出し
Set ObjLogFile = ObjSFS.OpenTextFile("FILE_TIME.log", 8, True)
ObjLogFile.WriteLine Now() & ",処理２,終了"
ObjLogFile.Close
===== Shori2.vbs =====
補足
回答ありがとうございます。 自己解決しました。 どうやら、まだVBSの処理が終わる前にファイルを 開いていたようでした。