Wouldn't be simpler to use STRTOFILE() (not tested either)?

llRedaOnly = (STRTOFILE("Delete me!",  lcFile) == 0)
IF NOT llRedaOnly
     ERASE (lcFile)
ENDIF

>Try to create file there:
>

>IsFolderReadOnly("c:\Test")
>
>
>
>FUNCTION IsFolderReadOnly(lcFolder)
>  LOCAL lnHandle, lcFile, lbRetVal
>  lcFile   = ADDBS(m.lcFolder) + SYS(2015)+".TST"
>  lnHandle = FCREATE(m.lcFile)
>  IF m.lnHandle < 0
>     lbRetVal = .t.
>  ELSE
>     FCLOSE(m.lnHandle)
>     ERASE (m.lcFile)
>  ENDIF
>
>RETURN m.lbRetVal
>

>NOT TESTED!