find the bigest file in a directory tcl tk
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"
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"