VBNet : Remplir combobox avec liste fichier

Version imprimable

24/01/2011, 13h54
biquet

VBNet : Remplir combobox avec liste fichier
Bonjour,

Dans un dossier, j'ai une liste de fichier .dat. Je voudrais inclure tous les nom avant le .dat dans ma combobox.
J'ai fais ceci mais je n'y arrive pas. Si qq'un a une explication?
Code:

1 2 3 Liste = System.IO.GetFileSystemEntries(Chemin, Pattern) ComboBox1.Items.Add(Liste)
par avance merci

bonjour

moi j'utiliserai quelque chose dans ce genre

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim sFiles() As String
        Dim nbfiles As String
        Dim i As Integer
        ' ' affiche tout les nom des fichier d'un repertoire 
        sFiles = Directory.GetFiles(dossier)
        nbfiles = Directory.GetFiles(dossier).Length()
        For i = 0 To nbfiles - 1
            Dim pathfile As String = sFiles(i)
            Dim NomFichier As String = pathfile.Remove(0, InStrRev(pathfile, "\", -1, 1))
            combobox.item.add(NomFichier)
      next

et n'oublie pas d'importer System.IO

cordialement

ps: je vien de l'ecrire a la main sans IDE donc il manque peut etre 2 ou 3 petit detail mais en gros c'est ca .

Merci pour ton aide.
J'ai modifié un peu voici le code qui fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Dim Chemin As String = "C:\"
        Dim sFiles() As String
        Dim nbfiles As Integer
        Dim i As Integer
        sFiles = Directory.GetFiles(Chemin)
        nbfiles = Directory.GetFiles(chemin).Length()
        For i = 0 To nbfiles - 1
            Dim pathfile As String = sFiles(i)
            Dim NomFichier As String = pathfile.Remove(0, InStrRev(pathfile, "\", -1))
            Dim x As Integer = NomFichier.Length - 4
            Dim fichier As String = NomFichier.Remove(x, 4)
            ComboBox1.Items.Add(fichier)
        Next