获取当前正在执行的TCl脚本的文件名

variable My_File [file normalize [info script]]
proc test {  } {
  variable My_File

#绝对路径
 set path [file nativename $My_File]
#文件名 

set filename [file tail $path]
 puts $filename
}