Rebol 编程/重命名

用法

RENAME old new 

描述

将文件重命名为新名称。

RENAME 是一个函数值。

参数

• old -- 旧文件的路径（类型：文件 URL）
• new -- 新名称（不是路径）（类型：文件 URL 字符串）

(特殊属性)

• 捕获

源代码

rename: func [
    "Renames a file to a new name." 
    [catch] 
    old [file! url!] "path to the old file" 
    new [file! url! string!] "new name (not a path)" 
    /local p dir blk
][
    dir: open first p: split-path clean-path old 
    blk: copy dir 
    either not none? blk: find blk second p [
        throw-on-error [change skip dir ((index? blk) - 1) new]
    ] [
        throw make error! reduce ['access 'no-rename old]
    ] 
    close dir
]