mciSendString does not play MP3

Hello everyone!

Again with the second part of my problem.

mciSendString is working fine with WAV files, but an error pops when trying to open an MP3.

When the filename is given, the following code runs:

Code:

---

Public Property Let FileName(pFilename As String)
    If FileExist(pFilename) Then
        mPathFilename = pFilename
        mSongFile = Chr(34) & pFilename & Chr(34)
        mSongType = UCase(Right(pFilename, 3))
        Select Case mSongType
        Case "MP3"
            mDeckFileType = " type mpegvideo "
        Case "WAV"
            mDeckFileType = " type waveaudio "
        Case Else
            mAddToMon "ERR: " & mSongType
        End Select

        DeviceOpen
    Else
        mAddToMon "No such file!"
    End If
   
End Property

---

The DeviceOpen procedure is where the issue raises:

Code:

---

Private Sub DeviceOpen()
    Dim iSend As String   
    iSend = "open " & mSongFile & mDeckFileType & " alias " & mDeckAlias
    mDeckSendStringRtn = mciSendString(iSend, mDeckSendStringResult, 128, 0)
    If DeviceError() = True Then       
        mDeckOpened = False
    Else
      mDeckOpened = True
    End If
End Sub

---

DeviceError, when the file is a WAV works fine, but, when it is an MP3 the following error raises:

Quote:

---

263;The specified device is not open or is not recognized by MCI.

---

Can anyone help me on this one?

Reagrds