Tcl 目录访问

我的问题是，我一直在尝试在shell上运行以下命令

set a [file mkdir ./Desktop/New]
set b [open $a/new.rpt w]

希望a会引用新文件夹

解释器不会返回任何错误，因此我假设我可以这样做-->

这一次显示的错误是-->

无法打开“/new.rpt”：权限被拒绝 有人能帮我一下吗？

文件mkdir的结果（成功时）是一个空字符串。（失败时，您会得到一个异常，您可以

catch

或

try…trap…

）要执行所需操作，请首先将值放入变量中：

您可能希望在某个时候也这样做：

set a [file normalize $a]

---

这将删除对当前目录的引用，并将

$a

转换为绝对文件名，如果您打算在某个时间制作

cd/where/other

，这将非常有用。

是否验证了a的内容？是否验证了已创建了目标文件夹？目标文件夹是在我创建时创建的-设置a[文件mkdir./Desktop/New]。现在如何在我的tcl shell中访问它？ couldn't open "/new.rpt": permission denied

set a ./Desktop/New
file mkdir $a
set b [open $a/new.rpt w]

set a [file normalize $a]