[Diplomat]

Как насчет такого варианта.
Позволяет избежать тормозов в главном цикле цикле и знаменитых глюков команды PlayMusic за счет повышения времени загрузки.

Dir$="D:\KrutajaGama\Music" 
CheckDir=ReadDir(Dir$) 
File$="*"
NFiles=0
While File$<>""
   File$=NextFile$(CheckDir) 
   If FileType(Dir$+"\"+File$) = 1 Then NFiles=NFiles+1
Wend
CloseDir CheckDir 

Dim Music(NFiles)

CheckDir=ReadDir(Dir$) 
File$="*"
NFile=0
While File$<>""
   File$=NextFile$(CheckDir) 
   If FileType(Dir$+"\"+File$) = 1 Then Music(NFile)=LoadSound(Dir$+"\"+File$)
Wend
CloseDir CheckDir 

While Not KeyHit(1)
   If ChannelPlaying(ChnlMusic)=0 then ChnlMusic=PlaySound(Music(Rnd(NFiles)))
Wend
End