This might be what your look for.
http://forum.thegamecreators.com/?m=forum_view&t=126283&b=6
it can give to a list of items to click on, you will have to work out how to change from load a list of items to load a list of the file dirctory, I think it will work if some bit are knocked out.
even if not it should give you some idea on which way to go.
ps. background image change to something you have.
edit
if the above is to hard to follow then this might get you started
Rem Project: filefinder1
Rem Created: 03/06/2008 10:30:40
Rem ***** Main Source File *****
sync on
sync rate 60
color backdrop 0
gosub _checklistfiles:
do
set cursor 0,0
print "CHECKLIST FILES"
for l=3 to array count(file_list$(0))
print file_list$(l)
next l
sync
loop
cls : print "VIEW EACH FILE IN A FOLDER"
find first
while get file type()>-1
print "Type:";get file type();
print " Name:";get file name$();
print " Date:";get file date$()
find next
endwhile
return
_checklistfiles:
cls : print "CHECKLIST FILES"
perform checklist for files
rem find number of files and make dim the same size and a string file.
dim file_list$(checklist quantity())
for f=1 to checklist quantity()
if right$(checklist string$(f),3)="mp3"
file_list$(f)=checklist string$(f)
endif
next f
sync
return
bits taken from the help files on perform checklist for files and checklist quantity() commands.
link
http://forum.thegamecreators.com/?m=forum_view&t=105047&b=1
Dark Physics makes any hot drink go cold.