Emettre un son depuis chemin avec espace

Signaler
Messages postés
145
Date d'inscription
dimanche 15 février 2009
Statut
Membre
Dernière intervention
22 février 2021
-
Messages postés
2429
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juin 2021
-
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 :)

2 réponses

Messages postés
2429
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juin 2021
137
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 Sub

JouerSon "le chemin complet du fichier audio"

Messages postés
145
Date d'inscription
dimanche 15 février 2009
Statut
Membre
Dernière intervention
22 février 2021
3
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 :
Messages postés
2429
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juin 2021
137
Désolé !
Je ne pourrais pas faire grand chose car je n'ai pas VB 6 mais VB Net !