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

cs_petchy 710 Messages postés jeudi 20 février 2003Date d'inscription 19 mai 2015 Dernière intervention - 10 oct. 2008 à 10:35 - Dernière réponse : cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention
- 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
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 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é 98 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 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
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 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
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 10 oct. 2008 à 11:01
0
Merci
dangereux de mettre C:\Windows en dur ...
Commenter la réponse de Renfield
cs_petchy 710 Messages postés jeudi 20 février 2003Date d'inscription 19 mai 2015 Dernière intervention - 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
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 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
cs_petchy 710 Messages postés jeudi 20 février 2003Date d'inscription 19 mai 2015 Dernière intervention - 10 oct. 2008 à 12:17
0
Merci
Re
merci à vous
Super,Exploreur,c'est nickel

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

Bonjour chez vous !
Commenter la réponse de gillardg
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 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
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 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
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 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.