9.9.3　ResetRetryMode （排他エラーリトライ機能を解除する）

機能

排他エラーリトライ機能を解除します。

形式

ResetRetryMode

このコマンドに引数はありません。

説明

排他エラーリトライ機能の対象となるコマンドおよびステートメントで，排他エラーが発生した場合のリトライを解除します。

SetRetryModeコマンドで設定したリトライ回数およびリトライ待ち時間が無効となり，「1.9.1　排他エラーリトライ機能」で設定したリトライ回数およびリトライ待ち時間が有効になります。

例

Dim BkupFileName, FileNo
TempFile( BkupFileName, "BUP", _TEMP_ )
Copy( _TEMP + "MODE.INF", BkupFileName )
DeleteFile( _TEMP_ + "MODE.INF" )  ' ディスクの書き込み遅延のおそれあり
SetRetryMode( 5, 100 )  ' リトライ設定
FileNo = TextOpen( _TEMP_ + "MODE.INF", CREATE )
ResetRetryMode  ' リトライ解除
If FileNo = 0 Then
  MessageBox( _TEMP_ + "MODE.INF のオープンに失敗", OK )
  Exit 2
Else
  TextWrite( FileNo, "Mode=ReadOnly" )
End If
TextClose( FileNo )

対象バージョン

JP1/Script 10-00以降

ページの先頭へ