Lister le contenue d'un dossier, y compris celui des sous dossiers de ce dossier
Vbsupernul
Messages postés287Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention18 janvier 2004
-
9 déc. 2002 à 18:52
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 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) )
A voir également:
Lister le contenue d'un dossier, y compris celui des sous dossiers de ce dossier
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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 .....