>>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