COMMENT AVOIR LA LISTE DE TOUS LES DOSSIERS CONTENUS DANS UN DOSSIER TOUT SIMPLE

Signaler
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
Messages postés
1
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
1 juillet 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20539-comment-avoir-la-liste-de-tous-les-dossiers-contenus-dans-un-dossier-tout-simplement

Messages postés
1
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
1 juillet 2009

100 000 codes et personne n'a eu l'idée de faire un fichier excel pret pour les debutants en VBA.... merci les gars!!!
Messages postés
1
Date d'inscription
dimanche 10 décembre 2006
Statut
Membre
Dernière intervention
10 décembre 2006

comment creer une image en VB?
Messages postés
14
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
1 février 2010

slt, j'ai plus simple:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
List1.Clear
Path = "C:"
Set Folder = fso.GetFolder(Path)

For Each X In Folder.SubFolders
List1.AddItem X.Path
Next

'après tu peux faire pareil pour les fichiers:

For Each Y In Folder.Files
List1.AddItem Y.Path
Next

voila
a+
Messages postés
38
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2006

Ne fonctionne uniquement dans la mesure où vous avez des répertoires ne contenant que des noms ASCII imprimables; je conseil fortement d'y ajouter une gestion des erreurs, amen... Sinon c'est rapide, c'est propre, je met 7.
Afficher les 10 commentaires