Function: TextFileError

Checks whether an error occurs when you open, write, or read a text file.

ReturnValue = TextFileError(TextFileHandle)

Input Parameters

Return Parameters

Examples

The following example attempts to open the text file OldText.txt. However, DIAdem does not find this text file in the DIAdem folder and the TextFileOpen function returns an error. The example then jumps into the subroutine for dealing with errors and displays the error number and the associated error text.

Dim intMyHandle, intMyError
intMyHandle = TextFileOpen("OldText.txt",eTextFileAttributeRead)
If intMyHandle = -1 Then
  Call MsgError(intMyHandle)
Else
  Call MsgBoxDisp( "Text file can be read.",_
                   "MB_OK","MsgTypeInformation",,5) 
  intMyError = TextFileClose(intMyHandle)
End If

Sub MsgError(FileNo)
 Call MsgboxDisp("Error number: " & TextFileError(FileNo) & VbCrLf & _
 "error message: " & TextFileErrorTxT(FileNo)) 'Show error number and error message
End Sub

intMyHandle = dd.TextFileOpen("OldText.txt",eTextFileAttributeRead) 
if intMyHandle == -1 : 
    MsgError(intMyHandle) 
else: 
    dd.MsgBoxDisp( "Text file can be read.","MB_OK","MsgTypeInformation",None ,5) 
    intMyError = dd.TextFileClose(intMyHandle) 
def MsgError(FileNo): 
    dd.MsgboxDisp("Error number: " + TextFileError(FileNo) + "\r\n" + "error message: " + TextFileErrorTxT(FileNo)) #Show error number and error message

Related Functions

Command: TextFileEncoding | Command: TextFileEOL | Function: FR | Function: TextFileEOF | Function: TextFileErrorTxt | Function: TextFileSeek