JP1/Script(Windows(R)用)
SetTrialOpenMode ( Count〔,WaitTime〕)
Dim file1, Buff1 file1 = TextOpen( _BIN_ + "Error.log", ReadWrite ) If file1 = 0 Then MessageBox( _BIN_ + "Error.log のオープンに失敗", OK ) Exit 2 End If TextSeek( file1, ToEnd ) TextWrite( file1, "排他エラーが発生しました。" ) SetTrialOpenMode( 2, 6000 ) ' 試行オープン設定 TextClose( file1 ) ' ディスクの書き込み遅延のおそれあり ResetTrialOpenMode ' 試行オープン解除 Exec( "MessageOutput.EXE", True, _BIN_ + "Error.log" )
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.