Discussion :

[benito9253]

Bonjour,
Je cherche un bout de code en VB.NET permettant de lister tous les sous repertoires et tous les fichiers d'un dossier, et ensuite d'enregistrer le résultat de cette recherche dans un fichier texte. Je précise que je débute en VB.NET et que les recherche que j'ai fait sur google ne m'on pas vraiment aidés.

Merci pour vos réponses

[StormimOn]

Pour récupérer la liste des répertoires : Directory.GetDirectories
Pour récupérer la liste des fichiers : Directory.GetFiles

Après c'est juste un algorithme à mettre en place pour répondre à ton besoin.

Pour écrire dans un fichier texte : StreamWriter fera l'affaire.

[benito9253]

merci d'avoir répondu aussi vite StormimOn

par contre j'ai du mal a comprendre comment utiliser StreamWriter...
est ce que tu pourrais me donner un exemple pour que je comprenne mieux?

[benito9253]

voila ca que donne mon code:

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
16
17
18
 
Imports System.IO
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Try
            Directory.GetFiles("C:\Program Files", "*.*", SearchOption.AllDirectories)
            Dim monStreamWriter As StreamWriter
            monStreamWriter = New StreamWriter("C:\Liste.txt")
            monStreamWriter.WriteLine(Directory.GetDirectories("C:\Documents and Settings\bl\Bureau"))
            monStreamWriter.WriteLine(Directory.GetFiles("C:\Documents and Settings\bl\Bureau", "*.*", SearchOption.AllDirectories))
            Me.Close()
        Catch ex As Exception
            TextBox1.Text = ex.Message
        End Try
    End Sub
End Class

ca me cré bien un fichier "liste.txt" mais il est vide!
si quelqu'un pouvait m'aider a améliorer mon code ce serait simpa

[benito9253]

je retire ce que j'ai dit: j'avais oublié de mettre la ligne "monStreamWriter.Close()"

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
16
17
18
Imports System.IO
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Try
            Directory.GetFiles("C:\Program Files", "*.*", SearchOption.AllDirectories)
            Dim monStreamWriter As StreamWriter
            monStreamWriter = New StreamWriter("C:\Liste.txt")
            monStreamWriter.WriteLine(Directory.GetDirectories("C:\Documents and Settings\bl\Bureau"))
            monStreamWriter.WriteLine(Directory.GetFiles("C:\Documents and Settings\bl\Bureau", "*.*", SearchOption.AllDirectories))
            monStreamWriter.Close()
            Me.Close()
        Catch ex As Exception
            TextBox1.Text = ex.Message
        End Try
    End Sub
End Class

Et maintenant, progrès, dans mon fichier "Liste.txt" j'ai 2 lignes:
System.String[]
System.String[]

Si quelqu'un a une solution je suis toujours preneur

[StormimOn]

Les méthodes GetFiles et GetDirectories renvoient la liste des fichiers / répertoires d'un répertoire. Mais il faut traiter ces informations après.

Par exemple si tu veux traiter les sous-répertoires des sous-répertoires il faudra faire un traitement récursif. Et dans tous les cas il faudra les parcourir afin de les écrire dans un fichier.

Bref il faut coder l'algorithme de traitement, ce que tu ne fais pas. Regarde les exemples de code sur la MSDN pour chacune des méthodes. Et google n'a jamais fait de mal à personne non plus