Utilisation de System.IO.Directory.GetFiles

**Claude_Azoulai** · 01/11/2011, 16h58

Bonjour à tous

Je voudrais utiliser System.IO.Directory.GetFiles en donnant plusieurs extensions pour un seul appel
Pour l'instant, j'ai trouvé une solution qui ne me plait pas, à savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
        L1 = CheminFinal.Length + 2
        For Each f As String In System.IO.Directory.GetFiles(CheminFinal, "*.mp3")
            L2 = f.Length + 1
            Form1.ListBox2.Items.Add(Mid(f, L1, L2 - L1))
        Next
        For Each f As String In System.IO.Directory.GetFiles(CheminFinal, "*.mid")
            L2 = f.Length + 1
            Form1.ListBox2.Items.Add(Mid(f, L1, L2 - L1))
        Next

Pour extraire les fichiers dont l'extension est ".mp3" et ".mid", j'utilise deux boucles FOR car je n'ai pas trouvé comment donner un pattern multiple en une seule fois, et si j'ai besoin de plus de patterns, le nombre de boucles risque de prendre beaucoup de place.
Si quelqu'un connait la solution, elle sera la bien-venue.

Merci de votre réponse

Claude Azoulai

**mdevaux62** · 01/11/2011, 17h36

Je n'ai pas trouvé le moyen de réaliser une pattern multiple.
Solution : 2 boucles imbriquées : une pour les extensions, l'autre pour la recherche.
J'en profite pour t'indiquer la fonction qui permet d'obtenir le nom seul du fichier (System.IO.Path.GetFileName(nomCompletDuFichier)) on peut aussi l'obtenir sans son extension (System.IO.Path.GetFileNameWithoutExtension(nomCompletDuFichier)).
La fonction de recherche maintenant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    Public Function RetournerFichiers(ByVal repertoire As String) As List(Of String)
        Dim listeFichiers As New List(Of String)
        Dim extensions() As String = {".mp3", ".mid"}
        For Each extension As String In extensions
            For Each fichier As String In System.IO.Directory.GetFiles(repertoire, "*" & extension)
                listeFichiers.Add(System.IO.Path.GetFileNameWithoutExtension(fichier))
            Next
        Next
        Return listeFichiers
    End Function