>PROCEDURE ClearAttributes > * > LPARAMETER tcFileName > IF VARTYPE(tcFileName) <> "C" OR EMPTY(tcFileName) > RETURN .F. > ENDIF > LOCAL lcFile, lnRetVal > lcFile = ALLTRIM(tcFileName) > DECLARE SHORT SetFileAttributes IN KERNEL32 ; > STRING @ lpFileName, ; > INTEGER dwAttributes > lnRetVal = SetFileAttributes(lcFile, 0) && Remove all attributes > RETURN (lnRetVal > 0) >ENDPROC >