[REBOL] Re: Recursive directory read/delete

[Andrew Martin]

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
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.