请问如何让获取的flash文件随机播放？
放完后再随机重复
On Error GoTo Err:
Static a As Long
Static b As Integer
Dim OBJ As Object
  
Set OBJ = IIf(playform.Visible = False, Me.Flash1, playform.ShockwaveFlash1)
b = IIf(a = OBJ.CurrentFrame, b + 1, 0)
If b > 80 Then OBJ.Playing = True
      
      Caption = b
     If b > 200 Or a + 1 >= OBJ.TotalFrames Then
        b = 0
        If File1.ListIndex < File1.ListCount Then
            File1.Selected(File1.ListIndex + 1) = True
          Else
            File1.Selected(0) = True
        End If
            OBJ.Movie = Dir1 + "\" + File1.FileName
     End If
   a = OBJ.CurrentFrame
   
Set OBJ = Nothing
Exit Sub
Err:
     b = 0
     Set OBJ = Nothing
End Sub



[ 本帖最后由 sznt 于 2010-5-14 08:55 编辑 ]

等待中。。。。。。。。。。。。。

就是启动时获取一路径下的文件，但只能按顺序播放，想让它随即乱序播放

再次等待

等待中，轻别离开

等待

不明白，还未有解决答案，就强制结贴，为什么？

谢谢楼上在结贴情况下无私支持，谢谢了。