Renaming all files recursively (Kind of)

[KarveR]

Hi all,
Is there an easy way to rename all files in a given directory and recursively inwards.

I have a directory structure that when restored from backup all filenames are in uppercase, all need to be in lowercase.

Thanks for your thoughts. ______________________________________________________________________
There's no present like the time, they say. - Henry's Cat.

 

[marsd]

#!/usr/bin/tclsh

foreach file [glob "dir/target/*"] {
if {[file isfile $file]} {
file rename -force $file [concat [file dirname $file]/[string tolower [file tail $file]]
}
}