Tcl + Проверить существование файла

Я пытаюсь проверить, существует ли файл в Tcl, но не могу получить истинный результат. Хотя я знаю, что он присутствует.

while {true} {

    if { [file exists $file_name] == 1} {               
        exp_send "copy file.txt destination \r"
        puts " File copied!"
    }

    puts "File Not copied"

    }

Я всегда выполняю строку "Файл не скопирован". Я поставил [файл существует $ имя_файла] и всегда получаю 0. Но я точно знаю, что файл существует в текущем каталоге. Есть предложения?

РЕДАКТИРОВАТЬ:

Альтернативный метод, который я пытаюсь реализовать, заключается в том, что когда я создаю каталог с помощью сценария tcl. Я получу вывод всех файлов в каталоге. Мне просто нужно сопоставить мой файл с выведенным списком и удовлетворить if , когда совпадение было найдено ...

Я выполняю сценарий из Location A, но использую сценарий для telnet в Location B. Когда файл существует, он проверяет сам Location A. Это моя проблема ... поскольку мне нужно искать в местоположении B ...