testdirectory.tcl

来自「InsightToolkit-1.4.0(有大量的优化算法程序)」· TCL 代码 · 共 12 行

package require InsightToolkit
set d [itkDirectory_New]
$d Load "."
set n [$d GetNumberOfFiles]
for {set i 1} {$i < $n} {incr i} {
   puts [$d GetFile $i]
}