关于App.path的问题,忙了好长一段时间，最后一步了！急！！在线等！

Sub PlayMid()
     Dim cmd As String
     Call mciSendString("close MyMid", 0, 0, 0)修改
     cmd = "open " & App.Path + "\wav\love.mid" & " type SEQUENCER alias MyMid"
     MsgBox cmd
     Call mciSendString(cmd, 0, 0, 0)
     Call mciSendString("play MyMid ", 0, 0, 0)
End Sub
打包后安装到c:\Program file\Myworks\下，Playmid不认c:\Program file长路径，该怎么办。