Проблема с созданием каталогов в tcl

Question

Я пишу код в tcl, используя Windows. Когда я пытаюсь создать папку с помощью этой команды

set FileName "GVOutPut";
file mkdir $FileName;

, я получаю эту ошибку:

can't create directory "GVOutPut": permission denied
    while executing
"file mkdir $FileName"

как я могу решить эту проблему?

Answer 1

Вы должны проверить, что текущий каталог (puts [pwd]) - это каталог, в котором вы ожидаете, что новый каталог будет создан, а не где-то, где обычные пользователи не могут писать по умолчанию. Это очень легко для того, чтобы отличаться в программе с графическим интерфейсом от текстовой программы;Значения по умолчанию различаются (из-за разных способов их запуска ОС). Часто бывает полезно использовать полные пути в ваших программах или делать все по отношению к известному местоположению. Вы можете использовать команду cd для установки текущего каталога.

Либо запустить программу из привилегированной оболочки. Но вам, вероятно, не нужен этот вариант, поскольку он имеет много нетривиальных последствий.