listbox .files -relief raised -borderwidth 2 \
  -yscroll ".scroll set"
pack .files -side left
scrollbar .scroll -command ".files yview"
pack .scroll -side right -fill y
foreach i [lsort [glob *]] {
  .files insert end $i
}