Supprimer certains items Combobox

Version imprimable

11/06/2013, 22h29
TheAntoine17

Supprimer certains items Combobox
Bonjour, Bonsoir,

Je m'adresse à vous car je n'arrive pas à trouver la formule magique pour ce que je veux faire.

J'ai ma Combobox1 qui se remplie par le bout de code :
Code:

1 2 3 Dim dir As New DirectoryInfo(TextBox1.Text) ComboBox1.DataSource = dir.GetDirectories("*.*")
Mais j'aimerais supprimer, après ce remplissage (ou pendant en mettant des conditions?), tous les items contenant un certain mot ou caractère.

Par exemple je souhaite qu'elle se remplisse de tous les sous-dossiers présent sauf ceux contenant 'root' dans le nom, quelqu'un aurait la formule magique?

Cordialement,

Bonsoir,

Avec Linq :

Code:

1
2
3
4
5
        Dim dirs = From d In Directory.GetDirectories(TextBox1.Text)
               Let inf = New DirectoryInfo(d)
               Where Not inf.Name.Contains("root")
               Select d
        omboBox1.DataSource = dirs

Ce qui te permet de rajouter sur la ligne 3 des conditions, par exemple :

Code:

And inf.LastAccessTime > New Date(2012, 1, 1)

12/06/2013, 19h40
TheAntoine17

Bonsoir, merci beaucoup de ta réponse.

J'ai donc fait ceci :

http://img15.hostingpics.net/pics/819841Capture.png

Mais malheureusement la Combobox reste vide, alors qu'il existe des dossiers qui ne comportent pas les caractère indiqués.
J'ai surement mal interpréter ou fait quelque chose, une idée?

Cordialement,
12/06/2013, 21h58
Sankasssss

Citation:

Envoyé par TheAntoine17

J'ai surement mal interpréter ou fait quelque chose, une idée?

Non même pas, c'est juste que je n'avais pas testé le code et que j'avais oublié de mettre le .ToList ce qui donne :

Code:

ComboBox1.DataSource = dirs.ToList

P.S. : Quand vous avez une erreur, il faut mettre l'erreur dans le message, ça aide les gens qui vous aides ;)
Ici l'erreur était :

Citation:

DataBinding complexe accepte IList ou IListSource comme source de données.
13/06/2013, 00h56
TheAntoine17

Merci beaucoup tout fonctionne très bien. :D

Mais étant perfectionniste, je souhaiterais que les dossiers ne s'affiche pas sous la forme :

C:\Users\Antoine\test\dossiers\MONDOSSIER

Mais sous la forme :

MONDOSSIER

Pour chaque item, comment faisons-nous ceci? Avec un For Each?

Cordialement,

Avec le code :

Code:

1
2
3
4
5
6
7
        Dim dirs = From d In Directory.GetDirectories(TextBox1.Text)
               Let inf = New DirectoryInfo(d)
               Where Not inf.Name.Contains("root")
               Select inf
 
        ComboBox1.DataSource = dirs.ToList
        ComboBox1.DisplayMember = "Name"

Ce qui vous permet de récupérer n'importe quelle propriété contenue dans DirectoryInfo, exemple en posant un bouton :

Code:

1
2
3
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MsgBox(CType(ComboBox1.SelectedItem, DirectoryInfo).FullName)
    End Sub

13/06/2013, 10h57
TheAntoine17

Merci beaucoup j'ai tout ce qu'il me faut !

Bonne journée :)