Rebol Programming/delete-dir

From Wikibooks, open books for an open world
< Rebol Programming
Jump to navigation Jump to search

USAGE:[edit | edit source]

DELETE-DIR dir 

DESCRIPTION:[edit | edit source]

Deletes a directory including all files and subdirectories.

DELETE-DIR is a function value.

ARGUMENTS[edit | edit source]

  • dir -- (Type: file url)

SOURCE CODE[edit | edit source]

delete-dir: func [
    {Deletes a directory including all files and subdirectories.} 
    dir [file! url!] 
    /local files
][
    if all [
        dir? dir 
        dir: dirize dir 
        attempt [files: load dir]
    ] [
        foreach file files [delete-dir dir/:file]
    ] 
    attempt [delete dir]
]