This code is faster:
Function TableOpen(ByVal name As String) As Logical
Dim f As Logical
OnError Goto err_table
f=TableInfo(name,TAB_INFO_READONLY)
err_table:
If Err()=ERR_TABLE_NOT_FOUND
Then
TableOpen=False
Else
TableOpen=True
End If
End Function
'****************************************************
_______________________________________________________________________
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, send e-mail to [EMAIL PROTECTED] and
put "unsubscribe MapInfo-L" in the message body.
