Option Explicit
Dim WshShell, Pro
Set WshShell = WScript.CreateObject("WScript.Shell")
Pro = "D:\Program Files\千千静听\TTPlayer.exe D:\千千静听\默认.ttpl"
WshShell.Run Chr(34)  Pro  Chr(34),0

支持路径或文件名带空格，网上给出的VBS代码貌似没有留到空格问题，特此补充。