http://snippets.dzone.com/posts Wed, 08 Oct 2008 04:27:10 GMT DZone Snippets: dirs code http://snippets.dzone.com/posts/show/1266 <code> <br /> dirs: func [ <br /> {Returns a block of fully qualified subdirectories for the directory.} <br /> spec [file!] "Starting directory" <br /> block [block!] "Block to append to" <br /> /deep "Recurse sub-directories." <br /> /local f-spec <br /> ][ <br /> spec: dirize spec <br /> foreach file read spec [ <br /> if dir? f-spec: join spec file [ <br /> append block f-spec <br /> if deep [all-dirs/deep f-spec block] <br /> ] <br /> ] <br /> block <br /> ] <br /></code> Mon, 23 Jan 2006 01:55:00 GMT http://snippets.dzone.com/posts/show/1266 gregg.irwin (Gregg Irwin)