Recursively compile files in a directory using Modelsim and a TCL script

I use modelsim to simulate my HDL designs. I would like to build a script-based workflow so that I don't have to use the GUI and can simulate faster.

My typical directory tree is:

rtl/
  includes/
  module1/
  module2/

What I need to do is to compile all the .sv and .vhd files that might be in the rtl folder and load the design in modelsim.

I have a scheleton for my script which is:

quit -sim
vdel -all -lib work
vlib work
vmap work work

# compile systemverilog
vlog -work work -svinputport=net rtl/file1.sv
vlog -work work -svinputport=net rtl/module1/file2.sv

# compile vhdl
vcom -work rtl/file3.vhd
vcom -work rtl/module2/file4.vhd

# Load design
vsim work.top_name -voptargs=+acc

run -all

What I would like to do is to automate the search for .sv and .vhd file and compile them in correct order. A basic solution I tried, uses a foreach loop:

 foreach file [fileutil::findByPattern $basepath *.sv] {
    vlog -work work -svinputport=net $file
  }

But modelsim is not happy with this as file may be not always compiled in correct order. Any hint would be appreciated, thanks in advance.

Andrea