Probleme avec le chemin "App.Path" [Résolu]

Messages postés
710
Date d'inscription
jeudi 20 février 2003
Dernière intervention
19 mai 2015
- 10 oct. 2008 à 10:35 - Dernière réponse :
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 12 oct. 2008 à 16:34
bonjour
j'ai trouver se code surhttp://vcallies.developpez.com/sonsvb/
il fonctionne trés bien,mais je voudrais modifier le chemin,en fait le son se trouve dans le dossier de mon programme ,je sais qu'il faut mettre "App.Path"mais il y a un probleme de constante,auriez vous une idée

Private Declare Function PlaySound& Lib "winmm.dll" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long)

Const SND_ASYNC = &H1 'constante indiquant que le fichier doit être jouer de façon
                                        ' Asynchrone, c'est-à-dire permettre à votre programme de
                                        'continuer son exécution sans attendre la fin de la lecture du
                                         'fichier son.
Const MonFichier = "c:/WINDOWS/MEDIA/logoff.wav" 'vous pouvez appeller le fichier que vous souhaitez

Puis, dans le module click :

Private Sub Command1_Click()
If PlaySound(MonFichier, 0&, SND_ASYNC) = False Then
  MsgBox "Erreur rencontrée au cours de la tentative de lecture" _
  & " du fichier son, il n'est sans doute pas accessible.", vbExclamation, "Programme de test son"
End If
End Sub

merci
petchy
Afficher la suite 

Votre réponse

12 réponses

Meilleure réponse
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 10 oct. 2008 à 12:06
3
Merci
Re,

Si tu veux garder çà comme çà, fait plutôt cela alors :

Dim Monfichier As String

MonFichier = App.Path & "\BD\logoff.wav"

Car tu ne peux par mettre App.Path dans la constante...enfin je crois ^^

A+
Exploreur

 Linux a un noyau, Windows un pépin

Merci cs_Exploreur 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 87 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 10 oct. 2008 à 10:48
0
Merci
Salut,

Ce n'est pas plutôt : "c:\WINDOWS\MEDIA/logoff.wav"

A+
Exploreur

 Linux a un noyau, Windows un pépin
Commenter la réponse de cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 10 oct. 2008 à 10:50
0
Merci
Mdr...^^ "c:\WINDOWS\MEDIA\logoff.wav"

Sinon avec App.path c'est comme cela :
 
App.Path & "\NonDeTonDossier\logoff.wav"

A+
Exploreur

 Linux a un noyau, Windows un pépin
Commenter la réponse de cs_Exploreur
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 10 oct. 2008 à 11:01
0
Merci
dangereux de mettre C:\Windows en dur ...
Commenter la réponse de Renfield
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Dernière intervention
19 mai 2015
- 10 oct. 2008 à 11:45
0
Merci
Re
merci de me répondre,
j'ai déja essayer se code
Const MonFichier = App.Path & "\BD\logoff.wav"
mais j'ai une erreur
"constante requise" et il me surligne .Path
petchy
Commenter la réponse de cs_petchy
Messages postés
3288
Date d'inscription
jeudi 3 avril 2008
Dernière intervention
14 septembre 2014
- 10 oct. 2008 à 12:08
0
Merci
 dim  MonFichier As String= App.Path & "\BD\logoff.wav"

Bonjour chez vous !
Commenter la réponse de gillardg
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Dernière intervention
19 mai 2015
- 10 oct. 2008 à 12:17
0
Merci
Re
merci à vous
Super,Exploreur,c'est nickel

@ plus
petchy
Commenter la réponse de cs_petchy
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 11 oct. 2008 à 08:22
0
Merci
pas d'affectation avec un Dim, gillardg, pas en VB6
Commenter la réponse de Renfield
Messages postés
3288
Date d'inscription
jeudi 3 avril 2008
Dernière intervention
14 septembre 2014
- 11 oct. 2008 à 15:59
0
Merci
ah bon ? quelle ["ho"-"e"]rreur !

Bonjour chez vous !
Commenter la réponse de gillardg
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 12 oct. 2008 à 11:29
0
Merci
Salut,

Par contre Gillard(salut) tu peux affecter dans une fonction :
"Optional" ByVal sFilter As String = "*.*"

A+
Exploreur

 Linux a un noyau, Windows un pépin
Commenter la réponse de cs_Exploreur
Messages postés
3288
Date d'inscription
jeudi 3 avril 2008
Dernière intervention
14 septembre 2014
- 12 oct. 2008 à 13:10
0
Merci
salut Exploreur  j'utilise vb.8/9 j'ai un peu oublié vb6

en vb2005  :
dim str as string= Application.StartupPath & "\monfichier.txt"

c'est plus simple d'utilisation , c'est plus facile à lire , et ça fait moins de lignes de code !

Bonjour chez vous !
Commenter la réponse de gillardg
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 12 oct. 2008 à 16:34
0
Merci
J'en convient avec toi ^^

A+
Exploreur

 Linux a un noyau, Windows un pépin
Commenter la réponse de cs_Exploreur

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.