یک API جایگزین برای mciExecute

سلام به همه دوستان
آیا کسی یه تابع API جایگزین برای اجرا کردن فایلهای صوتی بخصوص mp3 داره که از mciExecute استفاده نکنم؟ چون این تابع طی یک اقدام عجیب فایلهایی که در مسیرشون کاراکتر فاصله باشه رو اجرا نمیکنه. کسی هست بدونه چرا اینجوریه؟

بهتره اسم مدل داس فایل رو بگیرید و اونو به mciExecute بفرستید.

Option Explicit



Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As

String) As Long

Private Declare Function GetShortPathName Lib "kernel32" Alias

"GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As

String, ByVal cchBuffer As Long) As Long



Private Const MAX_PATH As Long = 260



Private Function GetShortFileName(ByVal LongFileName As String) As String



    Dim sBuffer As String



    sBuffer = String$(MAX_PATH, vbNullChar)

    Call GetShortPathName(LongFileName, sBuffer, MAX_PATH)

    GetShortFileName = Left$(sBuffer, InStr(1, sBuffer, vbNullChar) - 1)



End Function



Private Sub Form_Click()



    Dim sFileName As String

    Dim lRet As Long



    If Right$(App.Path, 1) <> "\" Then

        sFileName = App.Path & "\sound.wav"

    Else

        sFileName = App.Path & "sound.wav"

    End If

    sFileName = GetShortFileName(sFileName)



    lRet = mciExecute("play " & sFileName)

    If lRet = 0 Then

       MsgBox "Error playing sound"

    End If



End Sub

سلام
آقای آذیش دستتون درد نکنه.
ببخشید من این روزها یک کم گرفتارم دیر به دیر سر میزنم. باز هم ممنون. :P