PROCEDURE ClearAttributes LPARAMETERS tcFileName 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