9.9.5 ResetTrialOpenMode (試行オープン機能を解除する)
- 機能
-
試行オープン機能を解除します。
- 形式
ResetTrialOpenMode
このコマンドに引数はありません。
- 説明
-
TextCloseコマンドでのファイルクローズ後の試行オープンで排他エラーが発生した場合の試行オープンを解除します。
SetTrialOpenModeコマンドで設定した試行回数および試行間隔が無効となり,「1.9.2 試行オープン機能」で設定した試行回数および試行間隔が有効になります。
- 例
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" )
- 対象バージョン
-
JP1/Script 10-00以降