Utilisation de System.IO.Directory.GetFiles

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:

---

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

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:

---

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

---

Merci à mdevaux62

Chapeau pour la rapidité.

Je vais essayer cette méthode, et t'en rendra compte ensuite.
Claude Azoulai

Bonjour,

À voir du côté de FileSystem.GetFiles(String, SearchOption, String())

Cordialement !

Bonjour
J'ai essayé la solution proposée par mdevaux62 et ça a parfaitement fonctionné.
Merci à tous ceux qui m'ont aidé

Claude Azoulai