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.

To Page Top