Michael,
Instead of closing the file, leave it open, and return the file handle. Returning negative number means you can't open file. However, I don't think you saving any lines of code by putting this in a function (maybe you are saving a line).
>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
>
Steve Gibson