Discussion :

[TheAntoine17]

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 :

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

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,

[Sankasssss]

Bonsoir,

Avec Linq :

Code :

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

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 :

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

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

[TheAntoine17]

Bonsoir, merci beaucoup de ta réponse.

J'ai donc fait ceci :



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,

[Sankasssss]

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 :

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

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 :

DataBinding complexe accepte IList ou IListSource comme source de données.

[TheAntoine17]

Merci beaucoup tout fonctionne très bien.

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,

[Sankasssss]

Avec le code :

Code :

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

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 :

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

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