Yuleesize
Messages postés25Date d'inscriptiondimanche 15 septembre 2002StatutMembreDernière intervention 2 janvier 2004
-
22 sept. 2002 à 08:26
clementio
Messages postés432Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention17 février 2014
-
6 nov. 2002 à 00:25
Ehhh voilà donc j'utilise winmm pour lire un fichier son et... bas je fé comment pour kil y é un espace ds le fichier et ke le prog le comprenne...? enfin lise le fichier... En gros en ce moment si par exemple là où est le fichier sa ressemble à: C:\truc bidule\machin chose.mp3 il réussira pas à le lire...
Yuleesize
Messages postés25Date d'inscriptiondimanche 15 septembre 2002StatutMembreDernière intervention 2 janvier 2004 22 sept. 2002 à 18:44
Ehh alors en + clair (enfin j'essaie :))
Jutilise la dll winmm.dll et le truc kil lui fo pour lire un fichir c sa: mciExecute("Play c:\truc.mp3") eh si à la place de c:\truc.mp3 je met par ex: c:\truc machin.mp3 et bas il vas pas réussir à le lire... enfin si il y a un espace ds l'emplacement du fichier koi...
Mouarf 'suis pas plus clair enfin pas grave... yora ptet des gens ki auront compris...
Yuleesize
Messages postés25Date d'inscriptiondimanche 15 septembre 2002StatutMembreDernière intervention 2 janvier 2004 25 sept. 2002 à 13:37
le nom du fichier cours? C'est a dire le nom MsDos nan ? Ehh crée un module suis pas trop fort pour ça moi... Je veux biebn de l'aide si c'est possible ^^
Miiiiiiiiici
Vous n’avez pas trouvé la réponse que vous recherchez ?
clementio
Messages postés432Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention17 février 20141 6 nov. 2002 à 00:25
C ptêtre un peu mais tu pe essayer ça:
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String$(165, 0)
lngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
MsgBox GetShortPath("c:\Program Files")
End Sub