梶さん、こんばんは。

lpstrReturnString にRefをいれたら取得できました。
私は単純にBybalとrefの意味が理解できず、ＶＢでBybalが付く場合
ＰＢではなにもつけなくてよいのかと思っていました。
もう一度、勉強し直します。

梶さんには前回も助けて頂いたかと思います。
毎度のことながら本当に感謝します。
ありがとうございました。

＞ada0915さん、おはようございます。
＞
＞ここの記述に問題がありそうですね。
＞
＞ＶＢ
＞＞    MCICommandString = \"status \"\"\" & FileName & \"\"\" length\"
＞ＰＢ
＞＞MCICommandString = \'status \' + str_Filename + \'length\'
＞
＞ＶＢでダブルクォーテーションを被せてるのは、文字列中に
＞ダブルクォーテーションを含めたいからだと思うので・・・
＞
＞MCICommandString = \"status ~\"\" + str_Filename + \"~\" length\"
＞
＞と記述すれば行けるかと思います。
＞
＞それともう1点。
＞＞Function long mciSendStringA(string lpstrCommand,string lpstrReturnString,long 
uReturnLength,long
＞hwndCallback) Library \"winmm.dll\"
＞
＞lpstrReturnString は、Refじゃないかな・・・と。
＞上の方法で上手くいかなかったら、Ref記述して試してみて下さい。