Problème pour lister un disque dur

**kazylax** · 18/06/2009, 18h53

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** · 18/06/2009, 20h06

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

**kazylax** · 18/06/2009, 21h36

Bonsoir,

En effet il marche beaucoup mieux comme ceci

Pour voir seulement les fichiers (.ini .txt) comment je peux faire ?

Cordialement,

**Pol63** · 18/06/2009, 22h13

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