[REBOL] Re: Recursive directory read/delete

From: al:bri:xtra at: 23-Apr-2001 20:33

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/

1 · 2 · 3 · 4 · 5 · 6 · [7] · 8 · 9 · 10 · See whole thread