VC　连续播放一个文件夹里所有的ＳＷＦ文件，　　１００相送！该怎么解决

VC　连续播放一个文件夹里所有的ＳＷＦ文件，　　１００相送！！！！！
如题，方法不限！！！

------解决方案--------------------
swf是不是Flash文件？连续播放的话遍历文件夹，找出所有后缀名为swf的文件，记下名称，逐个播放
------解决方案--------------------
搜索该文件夹的所有文件，看扩展名是不是swf，是的话加入到播放列表中
------解决方案--------------------
FindFirstFile
FindNextFile
------解决方案--------------------
ShockwaveFlash1只能放一个，你要放全部的话就先要在文件中找出全部的SWF了，然后在一个一个的放吧Private Sub Command2_Click()
ShockwaveFlash1.Movie = "d:\1.swf "
ShockwaveFlash1.Play
End Sub
Private Sub Command3_Click()
ShockwaveFlash1.Movie = "d:\2.swf "
ShockwaveFlash1.Play
End Sub这是放2个的代码
------解决方案--------------------
for()
{
if(findnextswf(path,nameout))
addtolist(nameout);
}

for eachswf int list
{
playswf
}
------解决方案--------------------
写个列表,自己往下播,
没有就默认一个,反正用户以为是播了