投稿時間：2006/05/29(Mon) 19:26
投稿者名：MAKO
Ｅメール：
ＵＲＬ ：
タイトル：ＶＢの常駐処理で、突然改名が不可能に・・・・
一日中色々調べてはみたものの、原因が分からず質問させて頂きます。
なにぶん素人に近い状態なので、うまく説明出来るか分かりませんが、ご了承下さい。
環境
OS：Windows2000
開発：ＶＢ６．０
「Ａ」という、ＶＢ６．０で作成した常駐プログラムがあります。
「Ａ」は、フォームを持っていません。
SleepとDoeventsを利用し、ループを繰り返しながら動いております。
トリガーファイル（Web画面より作成）が存在したならば別のプログラムを
実行する仕様です。実行後、再度ループを繰り返します。
この「Ａ」が、ハングアップ（処理が固まる）する現象が稀に起きると
いう事で、「Ａ」に年月日時分秒をつけた起動ファイルを吐き出させるようにしました。
この起動ファイルは、Name関数を利用しループ毎に改名するようにしました。
ex）A_20060529182630.txt
「Ａ」の起動ファイルを監視する、常駐プログラム「Ｂ」をＶＢ６．０で
作成しました。こちらも、SleepとDoeventsと利用した処理です。
「Ｂ」は、「Ａ」が吐き出す起動ファイルの年月日時分秒を調査し、
一定時間以上過ぎていたら、「Ａ」に対し、リブートを行います。
テスト時は、うまく動きました。 いざ本番稼動を始めると、しばらくはうまく動いて
いたのですが（この時は２時間くらい）、突然「Ａ」の起動ファイルの改名が出来なくなりました。
※トリガーファイルをおいても目当てのプログラムの起動すらしない状態。固まってる？
当然「Ｂ」が「Ａ」のリブートを行います。この際、「Ａ」の起動ファイルを削除します。
「Ａ」が起動し、起動ファイルを作成します。しかし、改名が行われない。
※改名１回目で固まっている？
※この時も、トリガーファイルをおいても起動プログラムの起動すらしない状態。
実際の処理の内容は下記のようになっております。
＜Ａの内容＞
起動ファイル作成
Do While (True)
起動ファイル改名
IF トリガーファイル存在 Then
目当てのプログラム起動
End If
Sleep（2000）
Doevents
Loop
＜Ｂの内容＞
Do While (True)
Ａ起動ファイル取得
IF 現在時刻 − Ａ起動ファイルの時刻 ＞ 一定時間 Then
「Ａ」をリブート
「Ａ」の起動ファイル削除
End If
Sleep（3000）
Doevents
Loop
突然ファイルの改名が出来なくなる現象の理由が分かりません。
※エラーログなどは出ていませんでした。
はじめはうまくいっていた事から、起動ファイル改名時に、ファイルが使用中に
なっているわけではないと思っております。
サーバの再起動もしたのですが、それでも、解決しなかったので、
今は「Ａ」だけを動かしております。
なぜか、「Ａ」だけならば正常に処理される。（改名も正常に行われる）
開発時に数日動かし続けた事もあり、単純な問題では
ないな〜と色々調べてはみたのですが、原因が分かりませんでした。
説明がヘタクソで分かり辛いかもしれませんが、原因に心あたりのある方、教えて下さい。
開発で再現すらしない状態です。こうしたら、再現するかも？的な事で大歓迎です。
※ちなみに、実際には「Ｂ」も起動ファイルを吐き出し、「Ｃ」のプログラムが「Ｂ」を監視。
「Ｂ」も「Ｃ」を監視と少々ややこしい作りになっております。「Ａ」を監視しているのは
「Ｂ」だけです。
説明へたくそで、長くなってしまい申し訳ありません。
|