lparameters SetRO declare integer SetFileAttributes in Win32API ; string @ lpFileName, integer dwFileAttributes declare integer GetFileAttributes in Win32API ; string @ lpFileName lcFileName = getfile() if SetRO SetFileAttributes(@lcFilename, bitset(GetFileAttributes(@lcFilename),0)) else SetFileAttributes(@lcFilename, bitclear(GetFileAttributes(@lcFilename),0)) endifCetin