Tu peux faire un tirage aléatoire du fichier avec quelque chose du genre:
(à adapter bien sûr)
tcl
set mydb [glob -dir scripts *.tcl]
set QUIZZFile [lindex $mydb [rand [llength $mydb]]]
(à adapter bien sûr)