home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 9_11.tcl < prev    next >
Text File  |  2003-04-15  |  398b  |  24 lines
  1. #
  2. # Example 9-11
  3. # Finding a file by name.
  4. #
  5.  
  6. proc FindFile { startDir namePat } {
  7.     set pwd [pwd]
  8.     if {[catch {cd $startDir} err]} {
  9.         puts stderr $err
  10.         return
  11.     }
  12.     foreach match [glob -nocomplain -- $namePat] {
  13.         puts stdout [file join $startDir $match]
  14.     }
  15.     foreach file {[glob -nocomplain *]} {
  16.         if [file isdirectory $file] {
  17.             FindFile [file join $startDir $file] $namePat
  18.         }
  19.     }
  20.     cd $pwd
  21. }
  22.  
  23.  
  24.