alias sMp3 {
if (!%mp3dir) %mp3dir = $$sdir=" Select a directory.."
var %x = 1
while (%x <= $findfile(%mp3dir,*.mp3,0)) {
mkdir $+(",%mp3dir,$mp3($findfile(%mp3dir,*.mp3,%x)).genre,\,")
write $+(",%mp3dir,$mp3($findfile(%mp3dir,*.mp3,%x)).genre,\Songs.txt,") $nopath($findfile(%mp3dir,*.mp3,%x))
inc %x
}
}