Tcl 如果目标目录已经存在，如何复制目录

我想将目录复制到特定的目标，但由于目标目录已存在而出错。所以我添加了-force标志，但得到了相同的错误

例如：

将“我的目录”复制到“我的目录”时出错：文件已存在

在纯tcl中，有没有一种方法可以将目录复制到已经存在的目录上？

文档说明：

尝试覆盖非空目录、用文件覆盖目录或用目录覆盖文件都会导致错误，即使指定了-force

因此，在复制新目录之前，必须删除/empty/clean

$target\u path

。我想知道您是否会发现这个tcllib模块很有用：

file copy -force my_dir $target_path