pb pour spécifier chemin : "f:monfichier" marche, mais "monfichier" marche pas ?

mon soucis est que, je ne sais pas à l'avance où sera mon fichier son.

bonjour :-) ,
j'ai trouvé une méthode pour jouer un mp3.
j'ai mis la méthode ci dessous, çà marche très bien sauf
pour la spécification du fichier son.

si j'écris :
sMusicFile = "f:son.mp3": Play = mciSendString("play " & sMusicFile, 0&, 0,
0)

çà marche très bien, mais si je ne mets pas la lettre du lecteur ("f:")
çà ne marche plus.
mon soucis est que, je ne sais pas à l'avance où sera mon fichier son.


merci
José

la macro vba complete ci-dessous :
je l'ai trouvé ici : http://www.tek-tips.com/viewthread.cfm?qid53748

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long

Dim sMusicFile As String

Dim Play

Private Sub cmdPlayMusic_Click()

sMusicFile = Me.txtFileName.Text 'path has been included. Ex.
"C:3rdMan.mp3"

Play = mciSendString("play " & sMusicFile, 0&, 0, 0)

If Play <> 0 Then MsgBox "Can't PLAY!"

Me.cmdPlayMusic.Enabled = False
Me.cmdStopMusic.Enabled = True

End Sub

Private Sub cmdStopMusic_Click()

Play = mciSendString("close " & sMusicFile, 0&, 0, 0)

cmdPlayMusic.Enabled = True
cmdStopMusic.Enabled = False

End Su

Peut-ￜtre :



Sub test()

Dim FSO As Object, Lecteurs

Lecteurs = Array("D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N",

"O", "P", "Q", _

"R", "S", "T", "U", "V", "W", "X", "Y", "Z")

Set FSO = CreateObject("Scripting.FileSystemObject")

For Each Item In Lecteurs

If FSO.driveexists(Item) Then

If FSO.fileexists(Item & ":son.mp3") Then

sMusicFile = Item & ":son.mp3": Play = mciSendString("pl ay

" & sMusicFile, 0&, 0, 0)

Exit For

End If

End If

Next Item

End Sub



Daniel





> bonjour :-) ,

> j'ai trouvￜ une mￜthode pour jouer un mp3.

> j'ai mis la mￜthode ci dessous, ￜￜ marche trï ¿œs bien sauf

> pour la spￜcification du fichier son.

>

> si j'ￜcris :

> sMusicFile = "f:son.mp3": Play = mciSendString("play " & sMusicFil e, 0&, 0,

> 0)

>

> ￜￜ marche trￜs bien, mais si je ne mets pas la lettre du lecteur ("f:")

> ￜￜ ne marche plus.

> mon soucis est que, je ne sais pas ￜ l'avance oￜ sera m on fichier son.

>

>

> merci

> Josￜ

>

> la macro vba complete ci-dessous :

> je l'ai trouvￜ ici : http://www.tek-tips.com/viewthread.cfm?qid =1653748

>

> Private Declare Function mciSendString Lib "winmm.dll" Alias _

> "mciSendStringA" (ByVal lpstrCommand As String, ByVal _

> lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _

> hwndCallback As Long) As Long

>

> Dim sMusicFile As String

>

> Dim Play

>

> Private Sub cmdPlayMusic_Click()

>

> sMusicFile = Me.txtFileName.Text 'path has been included. Ex.

> "C:3rdMan.mp3"

>

> Play = mciSendString("play " & sMusicFile, 0&, 0, 0)

>

> If Play <> 0 Then MsgBox "Can't PLAY!"

>

> Me.cmdPlayMusic.Enabled = False

> Me.cmdStopMusic.Enabled = True

>

> End Sub

>

> Private Sub cmdStopMusic_Click()

>

> Play = mciSendString("close " & sMusicFile, 0&, 0, 0)

>

> cmdPlayMusic.Enabled = True

> cmdStopMusic.Enabled = False

>

> End Su