Discussion :

[biquet]

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 :

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

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

par avance merci

[alex61]

bonjour

moi j'utiliserai quelque chose dans ce genre

Code :

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

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 .

[biquet]

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

Code :

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

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

a+