referring to current folder

[bruno2k_ad34]

hi,
can you please help me to understand this issue and correct it?
i´ve addapted code to play sounds and it works fine if the mp3 file is placed at
C:\Users\Bruno Andrade\Music\


Sub M_02SomNiv2()
Dim play As String
play = """C:\Users\Bruno Andrade\Music\som02-Niv2.mp3"""
Shell "C:\Program Files\Windows Media Player\wmplayer /play " & play, False
End Sub


however, if i want to place the files at the current folder (the same as open excel), it doesn´t play any sound.


Sub M_01SomNiv2()
Dim play As String
play = ThisWorkbook.Path & "\som02-Niv2.mp3"'only this line changed
Shell "C:\Program Files\Windows Media Player\wmplayer /play " & play, False
End Sub


what´s wrong? please help me.
thanks
Bruno

 

[mrshl9898]

Looks like quotation marks are needed. This worked for me

[COLOR=#333333]Sub M_01SomNiv2()[/COLOR]
[COLOR=#333333]Dim play As String[/COLOR]
play = """" & ThisWorkbook.Path & "[COLOR=#333333]\som02-Niv2.mp3[/COLOR]" & """"
[COLOR=#333333]Shell "C:\Program Files\Windows Media Player\wmplayer /play " & play, False[/COLOR]
[COLOR=#333333]End Sub
[/COLOR]

 

[bruno2k_ad34]

Looks like quotation marks are needed. This worked for me

[COLOR=#333333]Sub M_01SomNiv2()[/COLOR]
[COLOR=#333333]Dim play As String[/COLOR]
play = """" & ThisWorkbook.Path & "[COLOR=#333333]\som02-Niv2.mp3[/COLOR]" & """"
[COLOR=#333333]Shell "C:\Program Files\Windows Media Player\wmplayer /play " & play, False[/COLOR]
[COLOR=#333333]End Sub
[/COLOR]

Hi,
that´s it. it works fine. thank you very much.
in this case, why do i have to use 3 quotations marks?
how do i score your answer??
best regards and thanks a lot
Bruno

 

[mrshl9898]

The 4 are to put 2 quotation marks in. so "A" is A and """" is ""

No scores here, glad it helped!

 

[bruno2k_ad34]

It's obvious. Thanks once more.
Bruno