您的位置:首页 > 其它

find the bigest file in a directory tcl tk

2011-04-26 08:33 344 查看
set files [glob *]
set sofar -1

foreach f $files {
set size [file size $f]
if {$size > $sofar} {
set sofar $size
set name $f
}
}

puts "Biggest files is $name at $sofar bytes"
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐