glob

glob *.tcl

Find all the Tcl files in the user's home directory, irrespective of what the current directory is:

glob -directory ~ *.tcl

Find all subdirectories of the current directory:

glob -type d *

Find all files whose name contains an "a", a "b" or the sequence "cde":

glob -type f *{a,b,cde}*

set Path "/home/name"

set pattern "movie-*"

 foreach file [glob -directory [Path pics] $pattern.gif]  {

}