Posted to tcl by iobates at Sat Jul 25 14:49:47 GMT 2026view raw

  1. foreach $file [glob -directory $directory] {
  2. puts $file
  3. }
  4.