TCL随记(2)

file函数：

file dirname name 返回文件所在目录

file exists name 测试文件是否存在，存在返回1，否则返回0

file extension name 返回文件扩展名

file join path path 合并path形成一个新路径

file mkdir name 创建目录

file rootname 返回不带扩展名的文件名

file tail name 返回最有一个路径组成部分