'添加 Command1 Option ExplicitDim songnm$ Private Sub Command1_Click() songnm = "c:/test.mp3" Call playmusic(songnm)End Sub Public Sub playmusic(Snm As String) Dim ObjShell As Object Set ObjShell = CreateObject("Wscript.Shell") ObjShell.Run Snm Set ObjShell = NothingEnd Sub