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