用ＭＣＩ播放ＭＰ３的问题

Question

我用如下代码播放MP3,如果检测结束的时候总出错
    mciSendString "open " & GetShortName(FileName), Buff, 260, 0&
    mciSendString "play " & GetShortName(FileName), Buff, 260, 0&
    Do
    DoEvents
    mciSendString "status " & GetShortName(FileName) & " mode", Buff, 260, 0& 这句,错误号是273或263,用mciGetErrorString居然不让用?!
    Loop Until Left(Buff, 7) = "stopped"
    mciSendString "stop " & GetShortName(FileName), Buff, 260, 0&
    mciSendString "close " & GetShortName(FileName), Buff, 260, 0&

Answer 1

切，文件名转换的时候多了一个chr(0),把字符串结束了。