Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: file count

From: ammon:addept:ws at: 14-Dec-2002 16:58

Hi again! Dock came along on the REBOL AltME world and saved the day: file-counter: func [file [file!] /init][ if init [filecnt: folcnt: 0] foreach f read file [ either dir? append copy file f [ folcnt: folcnt + 1 file-counter probe append copy file f ][ filecnt: filecnt + 1 ] ] print filecnt print folcnt ] Ammon Johnson --- CIO Addept ------------------ (www.addept.ws) 435-616-2322 -------- (ammon at addept.ws) ----- Original Message ----- From: "Ammon Johnson" <[ammon--addept--ws]> To: <[rebol-list--rebol--com]> Sent: Saturday, December 14, 2002 3:26 PM Subject: [REBOL] file count
> Hi, > > I am attempting to write a function that will count the files and the
directoried inside of a given directory, but somewhere it is killing me in recursion. Here is the function: