[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: