如何通过VBA代码打开指定路径下的多个视频文件，并按顺序播放

lingdo2001

用AI自动生成程序，但是运行错误，有高手可以帮忙修改下吗？

Sub PlayVideos()
    ' 实现原理：通过VBA代码打开指定路径下的多个视频文件，并按顺序播放
   
    Dim MyPath As String
    Dim MyFile As String
    Dim ShellApp As Object
    Dim WMP As Object
   
    ' 指定视频文件所在的文件夹路径
    MyPath = "E:\"
   
    ' 创建一个Shell对象
    Set ShellApp = CreateObject("Shell.Application")
   
    ' 循环遍历该文件夹下的所有视频文件
    MyFile = Dir(MyPath & "*.mp4")
    Do While MyFile <> ""
        ' 使用Windows Media Player打开视频文件
        Set WMP = CreateObject("WMPlayer.OCX")
        WMP.Url = MyPath & MyFile
        WMP.Controls.Play
        ' 等待视频播放结束
        Do While WMP.playState <> 1 ' 等待直到视频播放完毕
            DoEvents
        Loop
        WMP.Controls.stop
        Set WMP = Nothing
        
        ' 继续遍历下一个视频文件
        MyFile = Dir
    Loop

    ' 释放对象
    Set ShellApp = Nothing
End Sub

x-xx-xx

wmp没用过哎

liulang0808

播放阶段如果是可用的话，建议楼主先遍历文件存入数组，然后按照楼主的需要的顺序进行排序。再对数组中的文件进行顺序播放