Emettre un son depuis chemin avec espace

Question

Bonjour à tous, :)

Je voudrais émettre un d'un fichier qui se trouve au même endroit que mon programme. Le problème est que dès que le chemin d'accès à ce fichier audio contient un espace, ça ne fonctionne plus !

J'ai essayé en utilisant chemins raccourcis (les noms de dossiers avec des ~1) ou en mettant des doubles guillemets.

J'ai testé 2 fonctions pour émettre le son:

Private Declare Function PlaySound& Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long)

PlaySound("le chemin complet du fichier audio", 0&, &H1)

Private Sub JouerSon(Fichier As String)
mciExecute ("play """ & Fichier & """)
End Sub

JouerSon "le chemin complet du fichier audio"

Rien ne fonctionne :(
Comment faire pour émettre un son avec un chemin qui contient des espaces ?

Merci d'avance de votre aide :)

vb95 · Answer

Bonjour 
A mon avis c"est la variable qui représente le nom du fichier qu'il faut mettre entre ""  ""
Essaie ceci ( sans certitude)

Private Sub JouerSon(Fichier As String)mciExecute ("play " & ""Fichier"")End SubJouerSon "le chemin complet du fichier audio"

yoanpg · Answer

Merci de ta réponse.
Mais ton code ne fonctionne pas, il manque des & de chaque côtés de Fichier.

J'ai donc essayé avec, double, triple et quadruple guillemets, sans succès.

Avec quadruple guillemets, quand je regarde la valeur avec un espion, j'ai la valeur suivante :
"play "C:\Users\...........\erreur.wav""
ce qui semble correct.

Et pourtant j'obtiens cette erreur :

Emettre un son depuis chemin avec espace

2 réponses

Votre réponse

Discussions similaires