Discussion :

[Martipit]

Bonsoir, j'ai le code suivant pour remplir une listbox avec les fichiers se trouvant dans le répertoire et ses sous répertoires.

Avec ce code, il me sort les fichiers avec toutes les extensions.

Code :

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

1
2
3
4
Dim fileNames = My.Computer.FileSystem.GetFiles("C:\TOTO\", FileIO.SearchOption.SearchAllSubDirectories, "*.*")
        For Each fileName As String In fileNames
            LbCheminFichiers.Items.Add(fileName)
        Next

Y aurait-il un moyen d'en exclure un type qui serait le .mp3

Merci par avance pour vos réponses.

@+ Martipit

[Sankasssss]

Bonsoir,

avec une requête Linq ça doit être faisable rapidement.

[meziantou]

Code :

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

1
2
3
4
5
For Each fileName As String In fileNames
	If Path.GetExtension(fileName) <> ".mp3" Then
		LbCheminFichiers.Items.Add(fileName)
	End If
Next

[Sankasssss]

+1 meziantou

je donne quand même la méthode avec Linq qui s'inspire de http://msdn.microsoft.com/en-us/library/bb882649.aspx :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim dir As New System.IO.DirectoryInfo(startFolder)
        Dim fileList = dir.GetFiles("*.*", System.IO.SearchOption.AllDirectories)
 
        Dim queryMatchingFiles = From file In fileList
                                 Where file.Extension <> ".mp3" 
                                 Select file.FullName
 
       ' Execute the query.
        For Each filename In queryMatchingFiles
            Console.WriteLine(filename)
        Next

[meziantou]

Je rajoute une petite précision qui vaut pour les 2 codes proposés.
Si tu veux filtrer les extensions mp3, MP3, mP3, ... il faut modifier la comparaison avec

Code :

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

String.Compare(file.Extension, ".mp3", StringComparison.OrdinalIgnoreCase)

[Martipit]

Salut

Merci à vous trois.

J'ai testé et ça fonctionne nickel

Le sujet est donc résolu.....

Vraiment cool ce forum et les gens y sont très compétents.

Encore Merci

@+ Martipit