[Максим]

Все разобрался вот код =)

Include "xors3d.bb"

Type Music
Field FileName$
Field Sel
End Type

xGraphics3d 1024,768,32,0

folder$="Music\"

If FileType(folder$) = 2
musDir = ReadDir(folder$)
Repeat
musfile$ = NextFile(musDir)
If FileType(folde$+musfile) = 1 Then
F$ = Lower(Right(musfile,4))
If F=".raw" Or F=".mod" Or F=".s3m" Or F=".mid" Or F=".rmi" Or F=".wav" Or F=".mp2" Or F=".mp3" Or F=".ogg" Or F=".wma" Or F=".asf"
m.Music = New Music
m\Filename = folder$+musfile
EndIf
EndIf
Until musfile = ""
CloseDir musDir
EndIf


m.Music = First Music
m\Sel=1
play=1
playmus=1
While Not xKeyHit(1)

xFlip
xCls


y=0

kL=xKeyHit(20
kR=xKeyHit(200)

If xKeyHit(57)
play=Not play
playmus=1
EndIf
For m.Music = Each Music

y=y+1

If kL And m\Sel =1 And playmus=0
m=After m
If m <> Null
m\Sel=1
xStopChannel(chMus)
m=Before m
m\Sel=0
kL=0
EndIf

ElseIf kR And m\Sel =1 And playmus=0
m=Before m
If m <> Null
m\Sel=1
xStopChannel(chMus)
m=After m
m\Sel=0
EndIf
EndIf

If m <> Null
If m\Sel = 0
xColor 255,255,255
xText 10,y*10,m\Filename
Else
xColor 255,0,0
xText 10,y*10,m\Filename
EndIf
Else
Exit
EndIf

If play And m\Sel And playmus=1
chMus=xPlayMusic(m\Filename)
playmus=0
EndIf

Next

Wend
End