Lister le contenue d'un dossier, y compris celui des sous dossiers de ce dossier

Signaler
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Ben voilà, je voudrais savoir comment (facilement) lister tout le contenu d'un dossier, y compris le contenu des sous dossiers qu'il contient, et tout ça dans une liste List1 (à partir d'un dirlist, dir1).

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

1 réponse

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Pour mettre dans la ListBox List1 la liste de tous les fichiers situés sur le disque D:, dans le dossier \Dossier et tous les sous-dossiers de \Dossier.

Dim Ligne As String, Chemin As String
Chemin = "D:\Dossier"
Shell "C:\Windows\Command.com /C Dir " & Dossier & " /S/-P/B/A-D > C:\Windows\Temp\Liste.txt"
MsgBox "Fichier C:\Windows\Temp\Liste.txt créé", vbInformation, "Opération réussie"
Open "C:\Windows\Temp\Liste.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
List1.AddItem Ligne
Loop

'Ne pas supprimer la MsgBox : c'est pour laisser à Windows le temps de s'apercevoir que le fichier Liste.txt existe

La ListBox contient alors la liste des fichiers avec leur chemin complet (facile à exploiter pour déterminer date de création et version par exemple .....
0