probleme avec le chemin "App.Path"Résolu

Question

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

cs_Exploreur · Accepted Answer

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

cs_Exploreur · Answer

Salut,

Ce n'est pas plutôt : "c:\WINDOWS\MEDIA/logoff.wav" 

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

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

Renfield · Answer

dangereux de mettre C:\Windows en dur ...

cs_petchy · Answer

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

gillardg · Answer

dim  MonFichier As String= App.Path & "\BD\logoff.wav"

Bonjour chez vous !

cs_petchy · Answer

Re
merci à vous
Super,Exploreur,c'est nickel

@ plus
petchy

Renfield · Answer

pas d'affectation avec un Dim, gillardg, pas en VB6

gillardg · Answer

ah bon ? quelle ["ho"-"e"]rreur !

Bonjour chez vous !

cs_Exploreur · Answer

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

gillardg · Answer

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 !

cs_Exploreur · Answer

J'en convient avec toi ^^

A+
Exploreur

 Linux a un noyau, Windows un pépin

Probleme avec le chemin "App.Path"

12 réponses

Votre réponse

Discussions similaires