9.9.4 SetTrialOpenMode (set the trial-open function)
- Purpose
-
Sets the trial-open function.
- Syntax
SetTrialOpenMode ( Count [,WaitTime])
- Arguments
-
- Count
-
Specify the trial-open retry count as a number in the range from 0 to 100, or as a variable that stores this value.
If you specify 0, the trial-open function is canceled.
- WaitTime
-
Specify the trial-open retry interval as a number (milliseconds) in the range from 100 to 60,000, or as a variable that stores this value.
This value is optional. If you omit this value, 100 is assumed.
- Description
-
The SetTrialOpenMode command tries to open a file if a lock error occurs during an attempt to open a file that was closed by the TextClose command.
The specified trial-open retry count and trial-open retry interval are effective until the ResetTrialOpenMode command is executed.
Note that because this setting is only valid for the current process, it will be invalid for script files invoked by using the Exec command or the NetExec command.
- Example
Dim file1, Buff1 file1 = TextOpen( _BIN_ + "Error.log", ReadWrite ) If file1 = 0 Then MessageBox( _BIN_ + "Failed to open", OK ) Exit 2 End If TextSeek( file1, ToEnd ) TextWrite( file1, "A lock error occurred." ) SetTrialOpenMode( 2, 6000 ) ' Set trial-open. TextClose( file1 ) ' Disk write might delay ResetTrialOpenMode ' Cancel trial-open. Exec( "MessageOutput.EXE", True, _BIN_ + "Error.log" )
- JP1/Script version
-
Supported from JP1/Script 10-00.