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