mciSendStringで再生できない。 (ID:126016)

名前

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

本文 ノ＜デバッグ用に投下 Function ExecuteMCI(ByVal cmd As String, ByVal subString As String) As String Dim ret As Long ret = mciSendString(cmd & " " & subString, "", 0, 0) ExecuteMCI = String$(1024, 0) mciGetErrorString ret, ExecuteMCI, 1024 ExecuteMCI = Left$(ExecuteMCI, InStr(ExecuteMCI, vbNullChar) - 1) End Function で、 debug.? executemci("play","""" & filename & """") として、どのような文字列になりましょうや？ ※できれば、openしてplayした後のも確かめて欲しいかな…