Try:
menu channel,menubar,status {
.Mp3:{ set %mp3files %MP3directory $+ .
set %mp3.file $$sfile(%MP3Dir,Choose What File To Play)
splay -p %mp3.file | msg $active 4,1.::: 14,1Mp3 Player4:14,1 $remove($nopath($insong.fname),.mp3,.wma,.mpeg,.wmv) 4,1:14,1 $gmt($calc($insong.length / 1000),nn:ss) 4,1:::.
}
}
menu status,channel,menubar {
.Control Mp3 Dir:Dir
}
alias Dir { .set %MP3dir $sdir(C:\,Choose Directory) }