#32002/8/15 17:36:06
首先要有一个得到.mp3列表的程序
用getNthFileNameInFolder和一些算法判断,可以得到
(简单的可以不支持子目录,判断一下后缀就可以了)
也可用buddyapi
set folder = baGetFolder( "c:\temp", "Please select a folder to install into:", 1, "Select a folder", -1, 0 )
set Files = baFileList( folder ,"*.mp3" )
member("showname").text=Files
然后点击得到line,i
set pname=member("showname").line[i].text
sound playfile 1,folder&pname