Yes it is :-)
But the first thing that came to my mind was FCREATE() :-)

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