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

Vbsupernul Messages postés 287 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 18 janvier 2004 - 9 déc. 2002 à 18:52
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 9 déc. 2002 à 23:53
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

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
9 déc. 2002 à 23:53
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
Rejoignez-nous