choisir un fichier aleatoire

[loulou7593]

voici un petit bout de code si quelqu'un peut m'aider ce serais gentil.

tclcopier

proc ::AutoRotation {min hour args} {
global botnick fname
set mot1 [lindex $text 0]
set f [open "$fname" "a"]
puts $f "QUIZZFile=scripts/$mot1.db"
close $f
puthelp "PRIVMSG #chan :rotation des questions"
}
 
bind time -|- {*0 * * * *} ::AutoRotation
 
proc ::AutoRotation {min hour args} {
global botnick fname
set mot1 [lindex $text 0]
set f [open "$fname" "a"]
puts $f "QUIZZFile=scripts/$mot1.db"
close $f
puthelp "PRIVMSG #chan :rotation des questions"
}

J'ai actuellement 5 bases de données et j'aimerais donc que toutes les 2 heures ca change de base de donnée ainsi de suite.
Les bases de données se nommes 1.db 2.db 3.db 4.db et 5.db