TCL常用命令

1.删除文件

　　file delete A

　　file delete -force A

2.建立文件夹

　　file mkdir A

　　file mkdir A/A

3.判断文件夹是否存在

　　file exist A

 4.复制文件

　　file copy A B

5.函数

　　proc fun {args} {

　　puts $args

}

　　fun "hello"