>FUNCTION SetAttr >PARAMETER tFileName, tAttribute >tAttribute = UPPER(tAttribute) >Private nAttribute >nAttribute=0 >If 'S'$tAttribute && System > nAttribute = nAttribute + 4 >Endif >If 'H'$tAttribute && Hidden > nAttribute = nAttribute + 2 >Endif >If 'R'$tAttribute && ReadOnly > nAttribute = nAttribute + 1 >Endif >If 'A'$tAttribute && Archive > nAttribute = nAttribute + 32 >Endif >If 'N'$tAttribute && Normal > nAttribute = nAttribute + 128 >Endif >declare integer SetFileAttributes IN kernel32 STRING, INTEGER >Return SetFileAttributes(tFileName,nAttribute)=1>