tcl语言打开文件夹