Function WmPlaySound(MySound)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "wmplayer " & DblQuote(MySound) & "", 1, False
Set WshShell = Nothing
End Function
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
Sub test()
musique = "H:\mes musique\Amy Mc Donald\This is the Life - Amy Mac Donald\This is the Life\02 - This is the life2.mp3"
WmPlaySound musique
End Sub