Erreur de chemin !!!

Question

Bonjour a tous, 
j'ai une erreur de chemin, c'est-a-dire que la fonction suivant n'accept pas les espaces vide dans le chemin

Private Sub cmdPlayMusic_Click()
    Dim musique As String
    'Arret la musique
    musique = App.Path & "Autorun\Musique" & RS.Fields("Musique")
    PlayMP3 (musique)
End Sub
Module :
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
  
Public Sub PlayMP3(Fichier As String)
                  mciExecute ("play " & Fichier)
End Sub
le chemin correct est (c:\documents and settings\jo\vb\Autorun\Musique	est.mp3)
mais pour le moment sa me donne  (c:\documents ) il oublis tous ce qui est apres l'espace.

Si quelqu'un a la solution ou des id&#233;es, cela sera appr&#233;cier

Merci
DraaFil

ScSami · Answer

Tante un truc du genre : mciExecute ("play """ & Fichier & """) et dit nous ce que ça donne. (Note, sinon ajoute soit des CHR(34), soit des apostrophes << ' >>) Enjoy ( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )

cs_JMO · Answer

Bonjour ....

En VBS, il y a les propri&#233;t&#233;s ShortPath et ShortName.
Renvoie le chemin d'acc&#232;s abr&#233;g&#233; pour les programmes qui requi&#232;rent l'ancien format de nom de fichiers 8.3.
Renvoie le nom abr&#233;g&#233; utilis&#233; par les programmes qui requi&#232;rent l'ancien format de nom 8.3.

Dim Fso, path, fichier, fichiers, WshShell
path =  "E:\Affaires\EUROFACTOR - AP02N008\4.3 Formulaires\Formulaires sp&#233;cifiques"


Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(path)
Set fichiers = Dossier.Files


For Each fichier in fichiers
'MsgBox " shortPath  =" & fichier.ShortPath & vbCrLf & "Path= " & fichier.Path
'MsgBox " shortName  =" & fichier.ShortName & vbCrLf & "Name=" & fichier.Name
   If Left(fichier.name,19) = "Main courante Ifdex" Then
      WshShell.Run fichier.ShortPath

frank150 · Answer

Essaie avec sa: musique Chr$(34) & App.Path & Iif(Right$(App.Path, 1) "", "", "") & "Autorun\Musique" & RS.Fields("Musique") & Chr$(34) le Iif c'est pour ajouter un " \ " si yen a pas à la fin du App.Path et les Chr pour des guillemets Ps: App.Path a toujours un " \ " à la fin si le répertoire n'est pas un répertoire racine, sinon il fini par " : " Frank150

Renfield · Answer

utilise un chemin court et ca ira.... ou place des guillemets

cs_Stephane33 · Answer

De m&#233;moire effectivement le chemin de AppPath serait plut&#244;t  "c:\Documents/ and/ Settings\jo\vb"
Il y a une merdouille avec les espaces dur les noms de r&#233;pertoires

Juste faites-le

Renfield · Answer

App.Path ? non, ca renvoie 

C:\Program Files\MonApplication

sans '\' sauf si l'exe est a la racine d'un lecteur

cs_Stephane33 · Answer

A priori il execute son appli dans c:\documents and settings\jo\vb c'est pour cela que cela lui retourne que c:\Documents( je pense  )

Juste faites-le

DraaFil · Answer

J'ai essayer la ligne suivant :
(je suis en vb6)
musique Chr$(34) & App.Path & IIf(Right$(App.Path, 1) "", "", "") & "Autorun\Musique" & RS.Fields("Musique") & Chr$(34)

mais j'ai un msg erreur : Le p&#233;riph&#233;rique sp&#233;cifi&#233; n'est pas ouvert ou n'est pas reconnu par MCI


cette ligne aussi donne la meme erreur


mciExecute ("play " & "'" & Fichier & "'")

pas vu de propriete shortPath dnas msnd

MErci

Renfield · Answer

ton pbm est ailleurs (pour le moment)..... 
arrange toi pour faire fonctionner ton code avec un fichier dans C:\ 

Renfield
Admin CodeS-SourceS - MVP Visual Basic

frank150 · Answer

Private Sub cmdPlayMusic_Click()
    Dim musique As String
    'Arret la musique    musique Chr$(34) & App.Path & IIf(Right$(App.Path, 1) "", "", "") & "Autorun\Musique" & RS.Fields("Musique") & Chr$(34)
    mciExecute "open " & musique
    PlayMP3 (musique)
End Sub

Public Sub PlayMP3(Fichier As String)
                  mciExecute  "play  " & Fichier
End Sub

'Arr&#234;t de la musique (tu dois l'appeler quand ton programme quitte sinon la musique continue mais ton programme est fermer!)

Public Sub StopMP3(Fichier As String)
    mciExecute "stop " & Fichier
End Sub

Frank150

Erreur de chemin !!!

10 réponses

Discussions similaires