在 Win 10 上，Tcl/Tk 脚本2个示例

参阅：Tcl/Tk 教程

set PATH 新增 D:\Git\mingw64\bin

where tclsh
D:\Git\mingw64\bin\tclsh.exe

where wish
D:\Git\mingw64\bin\wish.exe

编写 test_tk.tcl  如下

#!/usr/bin/tclsh
# test 文件对话框
package require Tk

# 弹出文件选择对话框，限制选择.txt文件
set filePath [tk_getOpenFile -title "选择文件" \
     -filetypes {{"文本文件" {.txt}} {"所有文件" {*.*}}}]

# 检查用户是否选择了文件
if {$filePath != ""} {
    exec notepad.exe  $filePath
} else {
    tk_messageBox -title "Error" -message "没有选择文件！" -icon error
}

运行  tclsh test_tk.tcl 
或者 wish test_tk.tcl 

编写 open_video.tcl  如下

#!/usr/bin/tclsh
# test 文件对话框
package require Tk

# 弹出文件选择对话框，限制选择.avi文件
set dir1 "D:/VIDEO"
set filePath [tk_getOpenFile -title "选择文件" \
            -filetypes {{"AVI文件" {.avi}} {"All Files" {*.*}}} \
            -initialdir $dir1 ]

# 检查用户是否选择了文件
if {$filePath != ""} {
    exec "C:/Program Files/Windows Media Player/wmplayer.exe" $filePath
} else {
    tk_messageBox -title "Error" -message "没有选择文件！" -icon error
}

运行 wish open_video.tcl 

 注意：脚本编码需要转为ANSI/GBK，如果是UTF-8，中文显示会乱码。