Tcl + 检查文件存在

我正在尝试检查 Tcl 中是否存在文件，但我似乎无法得到真实的结果。尽管我知道它的存在。

while {true} {

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

    puts "File Not copied"

    }

我总是执行“文件未复制”行。我做了一个看跌期权[file exists $file_name]我总是以 0 结束。但我知道该文件存在于当前目录中。有什么建议么？

EDIT:

我试图追求的另一种方法是，当我做一个dir使用 tcl 脚本。我将获得目录中所有文件的输出。我只需要将我的文件与输出的列表进行匹配并满足if当找到匹配项时...

我从位置 A 执行脚本，但使用脚本远程登录到位置 B。当我执行文件存在时，它会检查位置 A 本身。这是我的问题...因为我需要在位置 B 进行搜索...

The file exists命令始终适用于本地文件系统。如果你想检查远程系统是否有文件，你必须exp_send它是一些为您进行检查的说明。不幸的是，我无法从你的描述中完全分辨出你在说什么，所以我实际上无法建议如何去做。

而你想要一个break在那之后puts "File copied"行，否则一切都会再次循环。你可能不想要这样！