>llRedaOnly = (STRTOFILE("Delete me!", lcFile) == 0) >IF NOT llRedaOnly > ERASE (lcFile) >ENDIF >>
>>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!