tcl获取文件夹名称