WSH/サウンド再生

[ トップ ]   [ 編集 | 差分 | バックアップ | 添付 | リロード ]   [ 新規 | 一覧 | 単語検索 | 最終更新 | ヘルプ ]

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

       

Tweet   　リンクはご自由に。ご意見・お問い合わせ・フィードバックはお気軽に メール ください。

　当サイトの情報・著作物は、特に指定がない限り、BSD Lisence(宣伝条項不要)とします。また、真実性、合法性、安全性、適切性、有用性、完全性、正確性について何ら保証するものではありません。利用者はその旨を了承の上、自己の責任において利用するものとし、当該情報に基づく損害、損失についても、当サイトは一切責任を負いません。 HTML convert time: 0.016 sec.