Does anyone have a better way to do this, than the function below?


*********************
FUNCTION CanWrite
*********************
PARAM tcFile
LOCAL llCanWrite,lnHandle
IF NOT FILE(tcFile)
*File doesn't exist, so it can be created.
llCanWrite = .t.
ELSE
*If the file does exist, try to open it as
*read/write.
lnHandle = FOPEN(tcFile,2)
llCanWrite = (lnHandle > 0)
*Make sure the file gets closed. This will
*leave the file vulnerable to get opened by
*another person in the meantime.
FCLOSE(lnHandle)
ENDIF
RETURN llCanWrite