Récupérer liste de fichier

Version imprimable

Bonjour!

Je possède un répertoire avec plusieurs fichiers textes. J'aimerai avoir une combobox qui me permettrait de récupérer la liste des noms des fichiers dans le répertoire mais je ne voit pas comment faire...

Dans la FAQ j'ai trouvé ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 Imports System.IO Sub Dir(Optional ByVal sDirectory As String = ".") Dim sFiles() As String Dim i As Integer ' pour avoir les noms des fichiers et des sous-répertoires sFiles = Directory.GetFileSystemEntries(sDirectory) For i = 0 To sFiles.GetUpperBound(0) Console.WriteLine(sFiles(i)) Next End Sub
Mais je n'arrive pas à changer le chemin d'accès du répertoire à scruter et la liste apparaît sous forme de "\NomDuFichier.Extension"

Or moi, j'aimerai simplement une liste avec le nom des fichiers...

Merci d'avance

27/01/2010, 16h15
calagan99

Regarde du côté de la classe Directory et plus précisément sa méthode GetFiles().
27/01/2010, 17h48
benito9253

Citation:

Envoyé par majo59

Bonjour!
Mais je n'arrive pas à changer le chemin d'accès du répertoire à scruter et la liste apparaît sous forme de "\NomDuFichier.Extension"

Or moi, j'aimerai simplement une liste avec le nom des fichiers...

Pour ne garder que le nom du fichier sans l'extension:

Code:

System.IO.Path.GetFileNameWithOutExtension("Nom du fichier")

Avec l'extension:

Code:

System.IO.Path.GetFileName("Nom du fichier")
28/01/2010, 08h27
majo59

Oui mais il faudrait également que je puisse changer de répertoire, or avec ma méthode combinée à la votre, je reste toujours dans le repertoire source de mon application!

Moi je veux avoit un chemin à choisir

ex: "C:\test\"

C'est bon, j'avait la tête ailleurs :D

Je n'ai pas fait "Éditer" car je poste la bonne réponse.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
        'Nom du répertoire
        Dim sDirectory As String = "C:\test2\"
 
        Dim sFiles() As String
 
        Dim i As Integer
        Dim nom As String
 
        sFiles = Directory.GetFileSystemEntries(sDirectory)
 
        For i = 0 To sFiles.GetUpperBound(0)
            nom = System.IO.Path.GetFileNameWithoutExtension(sFiles(i))
            Me.CB_TEST.Items.Add(nom)
        Next

Voila, je pense que c'est optimisé... mais à vérifier!

merci pour votre aide