[REBOL] Re: Recursive directory read/delete
From: ryanc:iesco-dms at: 23-Apr-2001 11:57
You always have to add a new level of enginuity, dont you? It will make a
fine addition to my chainsaw collection. BTW, do you have any more
recursive functions you would like to share?
--Ryan
Andrew Martin wrote:
> Andrew Martin wrote:
> > Anyone got a recursive directory deleter written?
>
> Thanks everyone for their solutions. They were very helpful. Here's my
> solution to the problem:
>
> Delete!: make object! [
> _Delete: get 'delete
> set 'Delete func [
> "Deletes the specified file(s)."
> Target [file! url!] "The file to delete."
> /Any "Allow wild cards."
> ][
> if exists? Target [
> either Any [
> _Delete/any Target
> ][
> if dir? Target [
> foreach File read Target [
> Delete Target/:File
> ]
> ]
> _Delete Target
> ]
> ]
> none
> ]
> ]
>
> Andrew Martin
> ICQ: 26227169 http://members.nbci.com/AndrewMartin/
> -><-
>
> --
> To unsubscribe from this list, please send an email to
> [rebol-request--rebol--com] with "unsubscribe" in the
> subject, without the quotes.
--
Ryan Cole
Programmer Analyst
www.iesco-dms.com
707-468-5400
I am enough of an artist to draw freely upon my imagination.
Imagination is more important than knowledge. Knowledge is
limited. Imagination encircles the world.
-Einstein
