怎样让VB启动时打开当前工程目录文件？

来源：百度知道 编辑：UC知道 时间：2024/09/23 16:31:48
我想实现：在VB启动时自动播放当前工程文件夹里的一个a.mp4视频文件。（WindowsMediaPlayer 已添加）
请问Private Sub Form_Load()的事件如何编写？

Private Sub Form_Load()
a = App.Path & "\a.mp4"
WindowsMediaPlayer1.URL = a
End Sub

开机启动
Dim aa$, bb$
Private Sub Command1_Click()
aa = "c:\abc.exe"
bb = Environ("userprofile") & "\「开始」菜单\程序\启动\abc.exe"
FileCopy aa, bb
End Sub
打开
shell "c:\a.exe"