| |
set prj_dir [pwd];
set code_dir "$prj_dir";
set code_list [open [file join $prj_dir "src_list.txt"] w];
proc file_search {file_dir file_name} {
set path_list ""
if {[file exists $file_dir/$file_name] == 1} {
file attributes $file_dir/$file_name -hidden 0
}
if {[glob -directory $file_dir -nocomplain -- $file_name] != ""} {
append path_list [glob -directory $file_dir -nocomplain -- $file_name]\n;
}
foreach sub_dir [lsort -dictionary [glob -directory $file_dir -type d -nocomplain *]] {
append path_list [file_search $sub_dir $file_name];
}
return $path_list;
}
set file_list [file_search $code_dir *.jpg]
foreach file_list_all $file_list {
puts $code_list "$file_list_all";
}