DIMENSION aFiles[1]     && make sure array exists
ADIR(aFiles, tcFile)    && get the file into a 1 element array
llCanWrite = !Empty(aFl[1,1]) And Empty(CHRTRAN(aFl[1,5], 'A.', '')) && check attributes

Alan

>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
>