*function SetAttribs >>>lparameters tcFileName, tlReadOnly, tlHidden, tlSystem >>> >>>#define FILE_ATTRIBUTE_READONLY 0x00000001 >>>#define FILE_ATTRIBUTE_HIDDEN 0x00000002 >>>#define FILE_ATTRIBUTE_SYSTEM 0x00000004 >>> >>>local lnNewAttr >>>lnNewAttr = iif(tlReadonly,FILE_ATTRIBUTE_READONLY,0)+; >>> iif(tlHidden,FILE_ATTRIBUTE_HIDDEN,0)+; >>> iif(tlSystem,FILE_ATTRIBUTE_SYSTEM,0) >>> >>>declare integer SetFileAttributes in Win32API ; >>> string @ lpFileName, integer dwFileAttributes >>>declare integer GetFileAttributes in Win32API ; >>> string @ lpFileName >>> >>>return ( SetFileAttributes(@tcFilename, ; >>> bitor(bitand(GetFileAttributes(@tcFilename),0xFFFFFFF8),; >>> lnNewAttr)) = 1)>>