Try This out hope it help
`..............................BY............xmen.........
sync on
repeat
text 1,1,"..Drive letter.."
drive$=inkey$()
sync
until drive$<>""
drive$=drive$+":\"
set dir drive$
find first
rem Create array and index variable
dim track$(100)
track=1
rem begin repeat loop
repeat
rem add to item array if file found
if get file type()=0
track$(track)=get file name$()
track=track+1
endif
find next
Rem Repeat loop until no more files in current working directory
until get file type()=-1
make object cube 1,5
print "Files in current directory:"
for t=1 to track-1
print track$(t)
next t
last=track-1
track=1
load cdmusic track,1
play music 1
repeat
`position object 1,
y#=wrapvalue(object angle y(1)+4.0)
x#=wrapvalue(object angle x(1)+4.0)
z#=wrapvalue(object angle z(1)+4.0)
rotate object 1,x#,y#,z#
if mouseclick()=1
track=track+1:sleep 10
if track>last then track=1
load cdmusic track,1
play music 1
endif
text 120,2,"..left click to change track.."
text 120,bitmap height()-50,"..playing...>>>> : "+track$(track)
sync
until mouseclick()=2
end
`endif
