Bonjour,
J'ai le code suivant
Et dans le Form_Load
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
Je voudrais avoir la liste de certain fichiers (.txt .ini .exe)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dir()
mais le code me donne 1 seul fichier dans mon RichTextBox1
Savez vous d'ou vient l'erreur ?
Merci
Cordialement,
Partager