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以降

ページの先頭へ