TCL find the path of ***file

#TCL find the path of ***file

proc find {dir file} {
	if {[llength [set path [glob -nocomplain -directory $dir $file]]]} {
		return [lindex $path 0]
	} else {
		foreach dirs [glob -nocomplain -type d -directory $dir *] {
			if {$dirs != $dir && [llength [set path [find $dirs $file]]]} {
				return $path
			}
		}
	}
}
set disk_list "c d e f g h i j k l m n o p q r s t u v w x y z a b"
foreach disk $disk_list {
	set tool_path [find "$disk:/" {Update3/cadence/version/judge.exe}]
	if {$tool_path != ""} {break}
}