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
}
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
}