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>Hi Gang!