#DEFINE SEM_FAILCRITICALERRORS 1
#DEFINE SEM_NOALIGNMENTFAULTEXCEPT 4
#DEFINE SEM_NOGPFAULTERRORBOX 2
#DEFINE SEM_NOOPENFILEERRORBOX 0x8000
 
DECLARE INTEGER SetErrorMode IN kernel32 INTEGER uMode
 
LOCAL lvOldOnError, lnVfpError, lnOldErrorMode
 
* saving the old ErroMode value, and at the same moment
* suppressing a possible system message of no disk in drive
lnOldMode = SetErrorMode (SEM_FAILCRITICALERRORS)
 
* saving the old ON ERROR state
lvOldOnError = ON("ERROR")
lnVfpError = .F.
ON ERROR lnVfpError = .T.
 
SET CONS OFF
DIR a:
SET CONS ON
 
* restoring saved properties
ON ERROR &lvOldOnError
= SetErrorMode (lnOldMode)
 
RETURN  Not lnVfpError