Discussion :

[majo59]

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 :

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

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

[calagan99]

Regarde du côté de la classe Directory et plus précisément sa méthode GetFiles().

[benito9253]

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 :

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

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

Avec l'extension:

Code :

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

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

[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\"

[majo59]

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

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

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
 
        '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