同フォルダの拡張子が違うのを再生するには？ (ID:114341)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 同フォルダの音楽ファイルを.exe起動直後に再生させたいです。 で、とりあえず音楽ファイルを曲変更後同じ名前（0001）にし、再生させるようにしましたが、下記のものだとMP3のファイルしか再生できません。avi,wma,wav‥等再生させたいです。どのようにすればいいですか？ Dim music As String Private Sub Form_Load() music = App.Path If Right(music, 1) <> "\" Then music = music & "\" music = music & "0001.mp3" WindowsMediaPlayer1.URL = music End Sub