No.

I am doing like this:
****************************************************************
oFSO = CREATEOBJECT("Scripting.FileSystemObject")
oFile = oFSO.GetFile(lcDir+"\"+finame+".tif")
If oFile.Attributes = 33 then
oFile.Attributes = BITAND(oFile.Attributes, BITNOT(1))
EndIf

oFile.Delete(.T.)
*****************************************************************