Well, I don't know if you'll understand my code, as it's perhaps above the average beginner, but here's a snippet for DB Classic that will scan the directory you point it to and all the subdirectorys. It won't play any MP3s, but it's a good starting point.
rem Initialise Arrays and Start Location
dim Music$(1024)
dim Dirs$(128) : Dirs$(1)="C:\MP3's"
dim DirCheck(128) : DirCheck(1)=1
C_Music=1
C_Dir=2
Finished=0
CheckVal=1
rem Look Through for Unchecked Dirs
repeat
Finished=1
if DirCheck(CheckVal)=1
rem Checking Directory for Sub-Directories
set dir Dirs$(CheckVal)
perform checklist for files
for Count = 1 to checklist quantity()
Check$=checklist string$(Count)
MaxTest=len(Check$) : Filter=0
for Test = 1 to MaxTest
if mid$(Check$,Test)="." then Filter=1
next Test
if Filter=0
Dirs$(C_Dir)=get dir$()+"\"+Check$
DirCheck(C_Dir)=1
inc C_Dir
endif
Temp$=right$(Check$,4)
if Temp$=".mp3" OR Temp$=".wav"
Music$(C_Music)=get dir$()+"\"+Check$ : inc C_Music
endif
next Count
DirCheck(CheckVal)=0
Finished=0
endif
inc CheckVal
until Finished=1
undim Dirs$
undim DirCheck"I am a living, thinking entity who was created in the sea of information."
