文件操作 - mktransgif.tcl
返回文件管理
返回主菜单
删除本文件
文件: /usr/lib64/tcl8.6/Tix8.4.3/bitmaps/mktransgif.tcl
编辑文件内容
# # $Id: mktransgif.tcl,v 1.1.1.1 2000/05/17 11:08:46 idiscovery Exp $ # #!/usr/local/bin/tclsh set dont(plusarm.gif) 1 set dont(minusarm.gif) 1 foreach file [glob *.gif] { if ![info exists dont($file)] { puts "giftool -1 -B $file" } }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件