Création de fichier | écriture

[LitteulBlack]

Bonjour tous le monde,

Je viens vers vous car je tente depuis quelques heures de créer un fichier .txt par le biais d'un script TCL.

Voici le contenu du script:

Code :

proc start:timer {} {
[llength [chanlist #....-fr]]
set f [open "...../user.txt" "w"]
puts $f [llength [chanlist #....-fr]]
close $f
timer 5 start:timer
return
}
start:timer

Merci pour votre aide si précieuse