Rebol 程式設計/delete-dir

用法

DELETE-DIR dir 

描述

刪除目錄，包括所有檔案和子目錄。

DELETE-DIR 是一個函式值。

引數

• dir -- (型別: 檔案 URL)

原始碼

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]
]