Sub ListerRepertoire(ByVal NomDuRepartoire As String)
'Création d'un fichier Analyse.txt pour énumérer les fichiers trouvés
Dim sw As StreamWriter = File.CreateText("C:\Analyse.txt")
'Ecrit au début du fichier le répertoire parcouru et la date
sw.WriteLine("Répertoire racine analysé : " & NomDuRepartoire)
sw.WriteLine(DateTime.Now)
Dim list As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
'Parcours tous les fichiers du répertoire
list = My.Computer.FileSystem.GetFiles(NomDuRepartoire, FileIO.SearchOption.SearchTopLevelOnly)
'FileIO.SearchOption.SearchAllSubDirectories permet également de parcourir les sous répertoires
Dim path As String
For Each path In list
'écrit le chemein du fichier dans un fichier text
sw.WriteLine(path)
Next
'fermeture du fichier texte
sw.Close()
End Sub