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

名前

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

本文 Dir関数を使ってみてはいかがでしょうか？ Dim sBuff As String music = App.Path If Right(music, 1) <> "\" Then music = music & "\" sBuff = Dir$(music & "0001.*") If Len(sBuff) > 0 Then music = music & sBuff Else Exit Sub End If WindowsMediaPlayer1.URL = music 試してませんがたぶんこんな感じ。 じゃ、今日はもう帰ります（ ＾-＾）ノ