Lister tous les fichiers d'un repertoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 89 920 fois - Téléchargée 7 fois

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

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.