WSH/サウンド再生 の変更点WSH |
|
専用のAPIはないので、sndrec32で代替 Sub Sound() strSoundFile = "C:\Windows\Media\tada.wav" Set objShell = CreateObject("Wscript.Shell") strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34) objShell.Run strCommand, 0, True End Sub