RIBBOX Script

TCLBox Script

Linked TCL Script

proc fileGet { dir ext } {
	set fileList [glob -nocomplain 
-directory $dir *$ext]
	set listLength [ llength $fileList ]
#	puts $listLength
	set randomFile [ lindex $fileList [ 
    expr int([ expr rand()*$listLength ]) ] ]
}