Reproducir mp3 pero de una manera particular

[marcos1979]

Convierte la ruta del archivo a ruta corta con esto
Declara:

Código:

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _
    (ByVal lpszLongPath As String, ByVal lpszShortPath As String, _
    ByVal cchBuffer As Long) As Long

Private Function LongToShort(ByVal s_LongPath As String) As String

    Dim sBuf As String * 260
    Dim i As Long
    
    i = GetShortPathName(s_LongPath, sBuf, Len(sBuf))
    LongToShort = Left$(sBuf, i)

End Function

Para usarla:

mciExecute "Play " & LongToShort(Label1.Caption)

mciExecute "Stop " & LongToShort(Label1.Caption)

Un saludo