帮我编个小程序~~~~~~~~急用 ！！！！！！！

Question

我写了一个总是提示找不到文件Private Sub Image1_Click()
Dim filename As String
   Dim RetVal As Long
   filename = File1.Path + "\" + File1.Name
   RetVal = Shell("C:\Program Files\Windows Media Player\wmplayer.exe \main\SharpShooter002.AVI", 3)
End Sub还有很多问题呢！

Answer 1

Private Sub Image1_Click()
 Shell("C:\Program Files\Windows Media Player\wmplayer.exe \main\SharpShooter002.AVI")
End Sub

Answer 2

还是只能打开C:\Program Files\Windows Media Player\wmplayer.exe
不能打开后面的文件！！！！！

Answer 3

http://www33.websamba.com/kmlxk/SharpShooter002.rar

Answer 4

kmlxk(xiaoKKKK)
万分感谢~~~~~~~~~~~~