Probleme de mp3 avec une API vb

Probleme de mp3 avec une API vb - VB/VBA/VBS - Programmation

Marsh Posté le 26-11-2002 à 15:45:02    

J'ai trouvé une API qui scann le disque dur et qui me dit combien j'ai de fichier mp3 , j'aimerais en utilisant cette API que tous les fichiers que l'api compte en tant que .mp3 soit répertorié dans une listbox c'est possible ? Si oui comment ?
 
L'API en question
Option Explicit
'----------------------------------------
'------Déclarations propres aux API------
'----------------------------------------
'---Les constantes---
Private Const MAX_PATH = 260
Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
 
'---Les API---
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
         (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
         (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
'---Les types---
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
 
'----------------------------------------------
'------Déclarations propres à la fonction------
'----------------------------------------------
Private Type ListeFichier
    Fichiers() As WIN32_FIND_DATA
    Chemin() As String * MAX_PATH
    Nombre As Long
End Type
'--------------------------------------------------------
'---La fonction Rechercher : ---
'--- Cette fonction recherche tous les fichiers dans ---
'--- le répertoire spécifié et ses sous-repertoires ---
'--- Elle retourne le nombre d'occurences trouvées ---
'--------------------------------------------------------
Private Function Rechercher(Chemin As String, FichierR As String, _
        ResultatRecherche As ListeFichier) As Long
'---Déclaration des variables---
Dim lpFindFileData As WIN32_FIND_DATA
Dim hFindFile As Long
Dim lgRep As Long
Dim CheminRep As String
'---Recherche tous les fichiers demandés dans le répertoire Chemin---
hFindFile = FindFirstFile(Chemin & FichierR, lpFindFileData)
If hFindFile <> INVALID_HANDLE_VALUE Then
    Do
        ' Mémorise
        ResultatRecherche.Nombre = ResultatRecherche.Nombre + 1
        ReDim Preserve ResultatRecherche.Chemin(1 To ResultatRecherche.Nombre)
        ReDim Preserve ResultatRecherche.Fichiers(1 To ResultatRecherche.Nombre)
        ResultatRecherche.Chemin(ResultatRecherche.Nombre) = Chemin
        ResultatRecherche.Fichiers(ResultatRecherche.Nombre) = lpFindFileData
        ' Initialise lpFindFileData (Variable texte uniquement)
        lpFindFileData.cAlternate = String$(14, 0)
        lpFindFileData.cFileName = String$(MAX_PATH, 0)
    Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
End If
FindClose hFindFile
'---Recherche dans les sous-répertoires---
hFindFile = FindFirstFile(Chemin & "*.*", lpFindFileData)
If (hFindFile <> INVALID_HANDLE_VALUE) Then
    Do
        ' Si c'est un répertoire on continu le recherche
        If (lpFindFileData.dwFileAttributes And _
            FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
            ' Extraction du nom du répertoire
            CheminRep = Mid$(lpFindFileData.cFileName, 1, _
                        InStr(1, lpFindFileData.cFileName, Chr$(0)) - 1)
            ' Attention dans les sous-répertoire aux
            ' répertoires . et .. (Retour répertoire parent)
            If (CheminRep <> "." ) And (CheminRep <> ".." ) Then
                CheminRep = Chemin & CheminRep & "\"
                Rechercher = Rechercher(CheminRep, FichierR, ResultatRecherche)
            End If
        End If
    Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
End If
FindClose hFindFile
'---Retourne le nombre d'occurrences trouvées---
Rechercher = ResultatRecherche.Nombre
End Function
 
 
 
Private Sub Command1_Click()
' Alogtihme récursif
'---Déclaration des variables---
Dim ResultatRecherche As ListeFichier
Dim NombreOccurence As Long
Dim i
'---Recherche de tous les fichiers *.mp3 sur le lecteur C:\---
NombreOccurence = Rechercher("C:\", "*.mp3", ResultatRecherche)
' Toutes les informations de la recherche sont dans la variables ResultatRecherche
MsgBox NombreOccurence & " ont été trouvées (ou a été trouvé)" & Chr(13) & _
       "Le premier fichier trouvé est : " & Trim$(ResultatRecherche.Chemin(1)) & _
       Trim$(ResultatRecherche.Fichiers(1).cFileName)
 
End Sub


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 26-11-2002 à 15:45:02   

Reply

Marsh Posté le 26-11-2002 à 18:50:41    

bien sur ! il te suffit de mettre juste au bonne endroit de ton code  

Code :
  1. List1.additem 'valeur que tu veux'


 
désolé, je ne connais plus l'emplacement exact, mais c'est le principe...

Reply

Marsh Posté le 26-11-2002 à 19:35:51    

macray , jsuis dsl mais j'y arrive pas , ca me prend la tete sérieux , la ta tout mon code donc si tu y arrive de ton coté a les répertorié dans une listbox , fais moi signe . Merci :cry:


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 26-11-2002 à 23:59:43    

Code :
  1. If (hFindFile <> INVALID_HANDLE_VALUE) Then
  2.   Do
  3.     ' Si c'est un répertoire on continu le recherche
  4.     If (lpFindFileData.dwFileAttributes And _
  5.       FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
  6.       ' Extraction du nom du répertoire
  7.       CheminRep = Mid$(lpFindFileData.cFileName, 1, _
  8.             InStr(1, lpFindFileData.cFileName, Chr$(0)) - 1)
  9.       ' Attention dans les sous-répertoire aux
  10.       ' répertoires . et .. (Retour répertoire parent)
  11.       ' StrComp : plus rapide pour les comparaisons de chaine
  12.       if (StrComp(CheminRep,".",vbtextcompare)=1 and StrComp(CheminRep,"..",vbtextcompare)=1) then
  13. '      If (CheminRep <> "." ) And (CheminRep <> ".." ) Then
  14.         CheminRep = Chemin & CheminRep & "\"
  15.         list1.additem CheminRep
  16.         Rechercher = Rechercher(CheminRep, FichierR, ResultatRecherche)
  17.       End If
  18.     End If


Message édité par karlkox le 27-11-2002 à 00:00:07
Reply

Marsh Posté le 27-11-2002 à 14:15:13    

lut , Merci Karl !!! ca marche trop bien , maintenant le probleme c'est que dans la listbox on voit le chemin du fichier mais pas le nom de fichier en .mp3 :\ c un peu embetant pour un player mp3 si tu pouvais savoir d'ou viens le bleme ca m'aiderais , ciao [:spiritu4l]


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 27-11-2002 à 17:23:54    

Code :
  1. Private Function GetBaseName(ByVal Chaine As String, Optional ByVal with_extension As Boolean = True) as String
  2. Dim i As Long
  3. Dim length As Long
  5.     length = Len(Chaine)
  6.     For i = length To 1 Step -1
  7.         If StrComp(Mid$(Chaine, i, 1), "\", vbTextCompare) = 0 Then
  8.             Exit For
  9.         End If
  10.     Next i
  12.     If with_extension = True Then
  13.         GetBaseName = Mid$(Chaine, i + 1, i)
  14.     Else
  15.         GetBaseName = Mid$(Chaine, i + 1, i - 4)
  16.     End If
  18. End Function


 
Modifie :

Code :
  1. list1.additem CheminRep


 
Par  

Code :
  1. list1.additem GetBaseName(CheminRep)


Message édité par karlkox le 27-11-2002 à 17:24:26
Reply

Marsh Posté le 27-11-2002 à 18:36:00    

'wesh man , j'ai changé le code que tu m'avait dit de changer , mais ca ne marche pas , Les fichiers de la list sont invisible :\ c koi le probleme ? [:spiritu4l]


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 27-11-2002 à 18:46:05    

Spiritu4L a écrit a écrit :

'wesh man , j'ai changé le code que tu m'avait dit de changer , mais ca ne marche pas , Les fichiers de la list sont invisible :\ c koi le probleme ? [:spiritu4l]  




 
la valeur de cheminRep est null c'est pr ca !

Reply

Marsh Posté le 27-11-2002 à 18:52:27    

Et je dois faire comment pour que le fichier mp3 apparraise seul c'et a dire just "Jarule - What'Luv" et tous les mp3 comme ca dans la listbox ? [:spiritu4l]


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 27-11-2002 à 18:52:37    

Et je dois faire comment pour que le fichier mp3 apparraise seul c'et a dire just "Jarule - What'Luv" et tous les mp3 comme ca dans la listbox ? [:spiritu4l]


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 27-11-2002 à 18:52:37   

Reply

Marsh Posté le 27-11-2002 à 19:35:56    

Spiritu4L a écrit a écrit :

Et je dois faire comment pour que le fichier mp3 apparraise seul c'et a dire just "Jarule - What'Luv" et tous les mp3 comme ca dans la listbox ? [:spiritu4l]  




 
je ne connais pas la valeur de la chaine de la sortie, donc difficile de le dire, dis nou sce qu'elle mets, c'est plus simple à répondre...;)

Reply

Marsh Posté le 27-11-2002 à 20:11:00    

tiens voilà mon code eclate toi , et fais en sorte que ca marche ca m'aiderais ;)  :sol:  
 
[#d42a00]Option Explicit
'----------------------------------------
'------Déclarations propres aux API------
'----------------------------------------
'---Les constantes---
Private Const MAX_PATH = 260
Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
 
'---Les API---
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
         (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
         (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
'---Les types---
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
 
'----------------------------------------------
'------Déclarations propres à la fonction------
'----------------------------------------------
Private Type ListeFichier
    Fichiers() As WIN32_FIND_DATA
    Chemin() As String * MAX_PATH
    Nombre As Long
End Type
'--------------------------------------------------------
'---La fonction Rechercher : ---
'--- Cette fonction recherche tous les fichiers dans ---
'--- le répertoire spécifié et ses sous-repertoires ---
'--- Elle retourne le nombre d'occurences trouvées ---
'--------------------------------------------------------
Private Function Rechercher(Chemin As String, FichierR As String, _
        ResultatRecherche As ListeFichier) As Long
'---Déclaration des variables---
Dim lpFindFileData As WIN32_FIND_DATA
Dim hFindFile As Long
Dim lgRep As Long
Dim CheminRep As String
'---Recherche tous les fichiers demandés dans le répertoire Chemin---
hFindFile = FindFirstFile(Chemin & FichierR, lpFindFileData)
If hFindFile <> INVALID_HANDLE_VALUE Then
    Do
        ' Mémorise
        ResultatRecherche.Nombre = ResultatRecherche.Nombre + 1
        ReDim Preserve ResultatRecherche.Chemin(1 To ResultatRecherche.Nombre)
        ReDim Preserve ResultatRecherche.Fichiers(1 To ResultatRecherche.Nombre)
        ResultatRecherche.Chemin(ResultatRecherche.Nombre) = Chemin
        ResultatRecherche.Fichiers(ResultatRecherche.Nombre) = lpFindFileData
        ' Initialise lpFindFileData (Variable texte uniquement)
        lpFindFileData.cAlternate = String$(14, 0)
        lpFindFileData.cFileName = String$(MAX_PATH, 0)
    Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
End If
FindClose hFindFile
'---Recherche dans les sous-répertoires---
hFindFile = FindFirstFile(Chemin & "*.*", lpFindFileData)
If (hFindFile <> INVALID_HANDLE_VALUE) Then
    Do
        ' Si c'est un répertoire on continu le recherche
        If (lpFindFileData.dwFileAttributes And _
            FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
            ' Extraction du nom du répertoire
            CheminRep = Mid$(lpFindFileData.cFileName, 1, _
                        InStr(1, lpFindFileData.cFileName, Chr$(0)) - 1)
            ' Attention dans les sous-répertoire aux
            ' répertoires . et .. (Retour répertoire parent)
            ' StrComp : plus rapide pour les comparaisons de chaine
        If (StrComp(CheminRep, ".", vbTextCompare) = 1 And StrComp(CheminRep, "..", vbTextCompare) = 1) Then
    '      If (CheminRep <> "." ) And (CheminRep <> ".." ) Then
          CheminRep = Chemin & CheminRep & "\"
          List1.AddItem CheminRep
         
         
 
          Rechercher = Rechercher(CheminRep, FichierR, ResultatRecherche)
        End If
      End If
 
    Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
End If
FindClose hFindFile
'---Retourne le nombre d'occurrences trouvées---
Rechercher = ResultatRecherche.Nombre
End Function
 
 
 
Private Sub Command1_Click()
' Alogtihme récursif
'---Déclaration des variables---
Dim ResultatRecherche As ListeFichier
Dim NombreOccurence As Long
Dim i
'---Recherche de tous les fichiers *.mp3 sur le lecteur C:\---
NombreOccurence = Rechercher("C:\", "*.mp3", ResultatRecherche)
' Toutes les informations de la recherche sont dans la variables ResultatRecherche
MsgBox NombreOccurence & " ont été trouvées (ou a été trouvé)" & Chr(13) & _
       "Le premier fichier trouvé est : " & Trim$(ResultatRecherche.Chemin(1)) & _
       Trim$(ResultatRecherche.Fichiers(1).cFileName)
 
       
End Sub
 
Private Sub Timer1_Timer()
List1.Text = Trim$(ResultatRecherche.Chemin(1))
End Sub
 
Private Function GetBaseName(ByVal Chaine As String, Optional ByVal with_extension As Boolean = True) As String
  Dim i As Long
  Dim length As Long
   
      length = Len(Chaine)
      For i = length To 1 Step -1
          If StrComp(Mid$(Chaine, i, 1), "\", vbTextCompare) = 0 Then
              Exit For
          End If
      Next i
   
      If with_extension = True Then
          GetBaseName = Mid$(Chaine, i + 1, i)
      Else
          GetBaseName = Mid$(Chaine, i + 1, i - 4)
      End If
   
  End Function


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 27-11-2002 à 23:12:49    

Code :
  1. ' Note : quelques trucs viennent de Karl E. Petterson ;) (l'idée d'utiliser PathMatchSpec par exemple)
  2. Option Explicit
  3. '----------------------------------------
  4. '------Déclarations propres aux API------
  5. '----------------------------------------
  6. '---Les constantes---
  7. Private Const LB_ADDSTRING = &H180
  9. Private Const vbDot = 46
  10. Private Const MAXDWORD = &HFFFFFFFF
  11. Private Const vbBackslash = "\"
  12. Private Const ALL_FILES = "*.*"
  14. Private Const MAX_PATH = 260
  15. Private Const INVALID_HANDLE_VALUE = -1
  16. Private Const FILE_ATTRIBUTE_READONLY = &H1
  17. Private Const FILE_ATTRIBUTE_HIDDEN = &H2
  18. Private Const FILE_ATTRIBUTE_SYSTEM = &H4
  19. Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
  20. Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
  21. Private Const FILE_ATTRIBUTE_NORMAL = &H80
  22. Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
  23. Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
  25. '---Les API---
  26. Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
  27.     (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
  28. Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
  29.     (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
  30. Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
  31. Private Declare Function PathMatchSpec Lib "shlwapi" _
  32.    Alias "PathMatchSpecW" _
  33.   (ByVal pszFileParam As Long, _
  34.    ByVal pszSpec As Long) As Long
  35. Private Declare Function lstrlen Lib "kernel32" _
  36.     Alias "lstrlenW" (ByVal lpString As Long) As Long
  38. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
  39. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  42. '---Les types---
  43. Private Type FILETIME
  44.   dwLowDateTime As Long
  45.   dwHighDateTime As Long
  46. End Type
  48. Private Type WIN32_FIND_DATA
  49.   dwFileAttributes As Long
  50.   ftCreationTime As FILETIME
  51.   ftLastAccessTime As FILETIME
  52.   ftLastWriteTime As FILETIME
  53.   nFileSizeHigh As Long
  54.   nFileSizeLow As Long
  55.   dwReserved0 As Long
  56.   dwReserved1 As Long
  57.   cFileName As String * MAX_PATH
  58.   cAlternate As String * 14
  59. End Type
  61. '----------------------------------------------
  62. '------Déclarations propres à la fonction------
  63. '----------------------------------------------
  64. Private Type ListeFichier
  65.   Fichiers() As WIN32_FIND_DATA
  66.   chemin() As String * MAX_PATH
  67.   Nombre As Long
  68. End Type
  69. Private ResultatRecherche As ListeFichier
  71. ' Vire les caracteres nulls
  72. Private Function TrimNull(startstr As String) As String
  74.    TrimNull = Left$(startstr, lstrlen(StrPtr(startstr)))
  75.  
  76. End Function
  78. ' Retourne VRAI si sPec correspon a l'extension recherchée
  79. Private Function MatchSpec(sfile As String, sSpec As String) As Boolean
  81.    MatchSpec = PathMatchSpec(StrPtr(sfile), StrPtr(sSpec))
  82.  
  83. End Function
  85. ' Vérifie si le dernier BackSlash est la ou pas, pour avoir un path valide
  86. Private Function QualifyPath(sPath As String) As String
  88.    If Right$(sPath, 1) <> vbBackslash Then
  89.         QualifyPath = sPath & vbBackslash
  90.    Else
  91.         QualifyPath = sPath
  92.    End If
  93.      
  94. End Function
  96. Private Function GetBaseName(ByVal Chaine As String, Optional ByVal with_extension As Boolean = True) As String
  97. Dim i As Long, j As Long
  98. Dim length As Long
  100.    length = lstrlen(StrPtr(Chaine))     ' j'ai pas confiance à Len() ...
  101.    For i = length To 1 Step -1
  102.      If StrComp(Mid$(Chaine, i, 1), ".", vbTextCompare) = 0 Then
  103.        Exit For
  104.      End If
  105.    Next i
  107.    GetBaseName = Mid$(Chaine, 1, i - 1)
  109. End Function
  111. Private Sub GetFileInformation(chemin As String)
  112. Dim WFD As WIN32_FIND_DATA
  113. Dim hFile As Long
  114. Dim sPath As String
  115. Dim sRoot As String
  116. Dim sTmp As String              ' buffer
  117.      
  118.    'chemin racine
  119.    sRoot = QualifyPath(chemin)
  120.    ' chemin racine + wildcards
  121.    sPath = sRoot & ALL_FILES
  122.    ' handle
  123.    hFile = FindFirstFile(sPath, WFD)
  124.  
  125.    ' valide ?
  126.    If hFile <> INVALID_HANDLE_VALUE Then
  128.       Do
  129.          ' On a a faire à un fichier ?
  130.          If Not (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = _
  131.                  FILE_ATTRIBUTE_DIRECTORY Then
  132.            
  133.             ' Il correspond au type de fichier que l'on recherche ?
  134.             If MatchSpec(WFD.cFileName, "*.mp3" ) Then
  135.                 ' On stocke ca dans notre structure
  136.                 ResultatRecherche.Nombre = ResultatRecherche.Nombre + 1
  137.                 ReDim Preserve ResultatRecherche.chemin(1 To ResultatRecherche.Nombre)
  138.                 ReDim Preserve ResultatRecherche.Fichiers(1 To ResultatRecherche.Nombre)
  139.                 ' Faire attention aux caracteres nulls !
  140.                 sTmp = TrimNull(WFD.cFileName)
  141.                 ResultatRecherche.chemin(ResultatRecherche.Nombre) = sRoot
  142.                 ResultatRecherche.Fichiers(ResultatRecherche.Nombre) = WFD
  143.                
  144.                 ' Ajout dans la liste
  145.                 List1.AddItem GetBaseName(sTmp, False)
  146.                 ' ou par API
  147.                 'Call SendMessage(List1.hwnd, LB_ADDSTRING, 0, ByVal sTmp)
  148.             End If
  149.        End If
  150.        
  151.       ' Windows prend la main, enfin, il essaye ...
  152.       DoEvents
  153.      ' on a encore des fichiers a rechercher ?
  154.       Loop While FindNextFile(hFile, WFD)
  155.      
  156.      ' Allez hop ! on libere un peu de ram
  157.       hFile = FindClose(hFile)
  158.  
  159.    End If
  161. End Sub
  164. Private Sub Rechercher2(chemin As String)
  165. Dim lpFindFileData As WIN32_FIND_DATA
  166. Dim hFile As Long                       ' handle retourné par FindFirstFile
  167. Dim sRoot As String                     ' chemin complet
  168. Dim sPath As String
  169. Dim ResultatRecherche As ListeFichier
  171.    'chemin racine
  172.    sRoot = QualifyPath(chemin)
  173.    ' chemin racine + wildcards
  174.    sPath = sRoot & ALL_FILES
  175.    ' handle
  176.    hFile = FindFirstFile(sPath, lpFindFileData)
  177.  
  178.    ' valide ?
  179.    If hFile <> INVALID_HANDLE_VALUE Then
  180.  
  181.    ' On remplie notre structure ResultatRecherche ici
  182.     Call GetFileInformation(sRoot)
  183.  
  184.     Do
  185.      
  186.         ' Si nous avons a faire a un dossier ...
  187.          If (lpFindFileData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) Then
  188.               ' et si ce dossier est valide (pas les "." et les ".." )
  189.                If Asc(lpFindFileData.cFileName) <> vbDot Then
  190.                     ' on récupere le chemin complet avec le dossier
  191.                     sRoot = sRoot & TrimNull(lpFindFileData.cFileName)
  192.                     ' On entre dans la récursivité :)
  193.                     Call Rechercher2(sRoot)
  194.                  
  195.                End If
  196.              
  197.          End If
  198.        
  199.      ' On laisse windows continuer a balancer des messages, le pauvre ... ;)
  200.      DoEvents
  201.      ' on a encore des fichiers a rechercher ?
  202.       Loop While FindNextFile(hFile, lpFindFileData)
  203.      
  204.      ' Bon bein, c'est fini, y a pu qu'a libérer un peu de mémoire
  205.       hFile = FindClose(hFile)
  206.  
  207.    End If
  210. End Sub
  212. Private Sub Command1_Click()
  213. ' Alogtihme récursif
  214. '---Déclaration des variables---
  215. Dim NombreOccurence As Long
  216. Dim i As Long                   ' vaut mieux toujours définir le type, sinon on se retrouve avec des variantes qui prennent plus en ram
  217. '---Recherche de tous les fichiers *.mp3 sur le lecteur C:\---
  218. Call Rechercher2("L:\Mp3\Berserk\" )
  219. ' Toutes les informations de la recherche sont dans la variables ResultatRecherche
  220. MsgBox ResultatRecherche.Nombre & " ont été trouvées (ou a été trouvé)" & Chr(13) & _
  221.    "Le premier fichier trouvé est : " & Trim$(ResultatRecherche.chemin(1)) & _
  222.    Trim$(ResultatRecherche.Fichiers(1).cFileName)
  223.  
  224. End Sub


Message édité par karlkox le 27-11-2002 à 23:14:55
Reply

Marsh Posté le 28-11-2002 à 09:28:29    

Spiritu4L a écrit a écrit :

tiens voilà mon code eclate toi , et fais en sorte que ca marche ca m'aiderais ;)  :sol:  
 
[#d42a00]Option Explicit
'----------------------------------------
'------Déclarations propres aux API------
'----------------------------------------
'---Les constantes---
Private Const MAX_PATH = 260
Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
 
'---Les API---
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
         (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
         (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
'---Les types---
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
 
'----------------------------------------------
'------Déclarations propres à la fonction------
'----------------------------------------------
Private Type ListeFichier
    Fichiers() As WIN32_FIND_DATA
    Chemin() As String * MAX_PATH
    Nombre As Long
End Type
'--------------------------------------------------------
'---La fonction Rechercher : ---
'--- Cette fonction recherche tous les fichiers dans ---
'--- le répertoire spécifié et ses sous-repertoires ---
'--- Elle retourne le nombre d'occurences trouvées ---
'--------------------------------------------------------
Private Function Rechercher(Chemin As String, FichierR As String, _
        ResultatRecherche As ListeFichier) As Long
'---Déclaration des variables---
Dim lpFindFileData As WIN32_FIND_DATA
Dim hFindFile As Long
Dim lgRep As Long
Dim CheminRep As String
'---Recherche tous les fichiers demandés dans le répertoire Chemin---
hFindFile = FindFirstFile(Chemin & FichierR, lpFindFileData)
If hFindFile <> INVALID_HANDLE_VALUE Then
    Do
        ' Mémorise
        ResultatRecherche.Nombre = ResultatRecherche.Nombre + 1
        ReDim Preserve ResultatRecherche.Chemin(1 To ResultatRecherche.Nombre)
        ReDim Preserve ResultatRecherche.Fichiers(1 To ResultatRecherche.Nombre)
        ResultatRecherche.Chemin(ResultatRecherche.Nombre) = Chemin
        ResultatRecherche.Fichiers(ResultatRecherche.Nombre) = lpFindFileData
        ' Initialise lpFindFileData (Variable texte uniquement)
        lpFindFileData.cAlternate = String$(14, 0)
        lpFindFileData.cFileName = String$(MAX_PATH, 0)
    Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
End If
FindClose hFindFile
'---Recherche dans les sous-répertoires---
hFindFile = FindFirstFile(Chemin & "*.*", lpFindFileData)
If (hFindFile <> INVALID_HANDLE_VALUE) Then
    Do
        ' Si c'est un répertoire on continu le recherche
        If (lpFindFileData.dwFileAttributes And _
            FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
            ' Extraction du nom du répertoire
            CheminRep = Mid$(lpFindFileData.cFileName, 1, _
                        InStr(1, lpFindFileData.cFileName, Chr$(0)) - 1)
            ' Attention dans les sous-répertoire aux
            ' répertoires . et .. (Retour répertoire parent)
            ' StrComp : plus rapide pour les comparaisons de chaine
        If (StrComp(CheminRep, ".", vbTextCompare) = 1 And StrComp(CheminRep, "..", vbTextCompare) = 1) Then
    '      If (CheminRep <> "." ) And (CheminRep <> ".." ) Then
          CheminRep = Chemin & CheminRep & "\"
          List1.AddItem CheminRep
         
         
 
          Rechercher = Rechercher(CheminRep, FichierR, ResultatRecherche)
        End If
      End If
 
    Loop Until FindNextFile(hFindFile, lpFindFileData) = 0
End If
FindClose hFindFile
'---Retourne le nombre d'occurrences trouvées---
Rechercher = ResultatRecherche.Nombre
End Function
 
 
 
Private Sub Command1_Click()
' Alogtihme récursif
'---Déclaration des variables---
Dim ResultatRecherche As ListeFichier
Dim NombreOccurence As Long
Dim i
'---Recherche de tous les fichiers *.mp3 sur le lecteur C:\---
NombreOccurence = Rechercher("C:\", "*.mp3", ResultatRecherche)
' Toutes les informations de la recherche sont dans la variables ResultatRecherche
MsgBox NombreOccurence & " ont été trouvées (ou a été trouvé)" & Chr(13) & _
       "Le premier fichier trouvé est : " & Trim$(ResultatRecherche.Chemin(1)) & _
       Trim$(ResultatRecherche.Fichiers(1).cFileName)
 
       
End Sub
 
Private Sub Timer1_Timer()
List1.Text = Trim$(ResultatRecherche.Chemin(1))
End Sub
 
Private Function GetBaseName(ByVal Chaine As String, Optional ByVal with_extension As Boolean = True) As String
  Dim i As Long
  Dim length As Long
   
      length = Len(Chaine)
      For i = length To 1 Step -1
          If StrComp(Mid$(Chaine, i, 1), "\", vbTextCompare) = 0 Then
              Exit For
          End If
      Next i
   
      If with_extension = True Then
          GetBaseName = Mid$(Chaine, i + 1, i)
      Else
          GetBaseName = Mid$(Chaine, i + 1, i - 4)
      End If
   
  End Function




 
tu m'escuseras, mais ton code je le connais ! essaye de le debuger c'est pas trés compliqué ! tu mets des points d'arrêts "Rouge", ou des message "msgbox" avec les valeur que tu souhaite récupérer ! c'est simple et efficace !

Reply

Marsh Posté le 28-11-2002 à 17:41:55    

Hm , j'ai bien essayé ce que tu m'as dit de mettre dans les text le résultat de ma recherche des fichiers ".mp3" mais rien n'y fait ca ne marche pas . Je ne connais pas encore bien les API donc c un peu flou pour moi , donc si tu pouvais m'aider a effectuer la manoeuvre : :(  jserais savué  [:spiritu4l]


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 28-11-2002 à 22:06:40    

Euh, j'ai mis un petit truc je crois ...  :sweat:

Reply

Marsh Posté le 29-11-2002 à 18:08:46    

Bah ué karl tu m'avais donné un code mais on ne voyait plus les chemin des mp3 dans la list :(  [:spiritu4l]


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 29-11-2002 à 22:02:38    

mmhh c moi qui a bu ?  :pt1cable:  
Regarde bien la page, juste au dessus du code de macray, tu vois, il y a un message de moi, avec un peu de code, j'ai testé et ca marche au poil, ca ajoute le nom du fichier mp3 sans le chemin et sans l'extension.

Reply

Marsh Posté le 29-11-2002 à 22:05:44    

Hm trop délire ton smiley , bon jvais tester ton code man  :pt1cable:


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 29-11-2002 à 22:09:57    

Euh apparement c pas moi qui est bu , vu que ca marcheuh pas , erreur d'execution 9  :ouch:


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 30-11-2002 à 00:05:58    

Tu as bien change le path ? ("L:\mp3\Berserk" )

Reply

Marsh Posté le 30-11-2002 à 16:19:19    

Bah je dois le remplacer par koi ?


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 30-11-2002 à 20:01:47    

lol !! nan mais devine un peu ...

Reply

Marsh Posté le 30-11-2002 à 21:33:21    

hm hm je devine un peu mais c dur  :D sérieux je sais pas par koi remplacé : ("L:\mp3\Berserk" )  pc je l'ai pas vu  :lol:


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le 30-11-2002 à 22:21:42    

Par "c:\" par exemple ou un de tes répertoires où tu stockes tes musiques ^_^

Reply

Marsh Posté le 30-11-2002 à 22:24:55    

Comme je t'ai dit plus haut le code que tu m'as donné ca marche pas , ca efface les chemin de la listbox donc si tu pouvais m'envoyer ta source par mail ca serait cool , pc j'ai du merder , enfin je sais pas Spiritu4L@aol.com Tchao [:spiritu4l]


---------------
•º°) SkabsnowsurF Board Free Style (°º•
Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed