Bonjour,

J'ai le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
    Sub Dir(Optional ByVal sDirectory As String = "c:\")
        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)
            RichTextBox1.Text = sFiles(i)
        Next
    End Sub
Et dans le Form_Load
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Dir()
Je voudrais avoir la liste de certain fichiers (.txt .ini .exe)
mais le code me donne 1 seul fichier dans mon RichTextBox1

Savez vous d'ou vient l'erreur ?

Merci
Cordialement,