#rR gscope_photos.tcl proc RetrouveLesPhotos {Rep {Ou ""}} { NousAllonsAuBoulot $Rep if { ! [file exists "www01/images"]} { Espionne "Y a pas www01/images"; exit } foreach Fichier [lsort [glob -nocomplain "www01/images/*.JPG"]] { set Queue [file tail $Fichier] Espionne "Je cherche $Fichier" set Loc [exec locate $Queue] Espionne $Loc } exit }