Lister tous les fichiers d'un repertoire

Commenter

Contenu du snippet 

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

Compatibilité : VB 2005

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (foufou2004)