Discussion :

[kazylax]

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,

[Pol63]

getfiles plutot que GetFileSystemEntries plutot
et ton richtextbox faut mieux &= ... & vbcrlf sinon tu verras qu'un fichier

[kazylax]

Bonsoir,

En effet il marche beaucoup mieux comme ceci
Pour voir seulement les fichiers (.ini .txt) comment je peux faire ?

Cordialement,

[Pol63]

Code :

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

1
2
3
4
For i = 0 To sFiles.GetUpperBound(0)
    if System.IO.Path.GetExtension(sfiles(i)) <> "ini" and ... <> "txt" then continue for
            RichTextBox1.Text = sFiles(i)
Next

[kazylax]

Merci beaucoup

J'ai vu que tu as mis (...) après And

il fait quoi de plus ?
car j'ai une erreur avec

Cordialement,

[Pol63]

lol
c'est à compléter comme à l'école
j'étais fainéant de faire un copier coller ...