http://snippets.dzone.com/posts Mon, 06 Oct 2008 05:20:34 GMT DZone Snippets: attr code http://snippets.dzone.com/posts/show/1265 <code> <br /> attr: func [ <br /> {Return current attributes for the file.} <br /> file [file!] <br /> /with {Retrieve only selected attributes.} <br /> sel {Selected attributes to retrieve.} <br /> /avail {Return a list of attributes available for the file.} <br /> /copy {Copy all attributes, which are safe to copy, to f2.} <br /> f2 [file!] <br /> /local a <br /> ][ <br /> if with [return get-modes file sel] <br /> if avail [return get-modes file 'file-modes] <br /> if copy [ <br /> ;set-modes f2 a: get-modes file get-modes file 'copy-modes <br /> ; Core 2.5 includes full-path, which it shouldn't <br /> ;set-modes f2 a: get-modes file exclude get-modes file 'copy-modes [full-path] <br /> set-modes f2 a: get-modes file get-modes file 'copy-modes <br /> return a <br /> ] <br /> get-modes file get-modes file 'file-modes <br /> ] <br /></code> Mon, 23 Jan 2006 01:53:50 GMT http://snippets.dzone.com/posts/show/1265 gregg.irwin (Gregg Irwin)