Lister les répertoires et sous répertoires d'un dossier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 230 fois - Téléchargée 35 fois

Contenu du snippet

Lister les répertoires et sous répertoires d'un dossier
source net

Source / Exemple :


Attribute VB_Name = "ListeDossiersSousDossiers"

Sub TousLesDossiers(LeDossier$, Idx As Long)
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier = fso.GetFolder(LeDossier)
  
  'examen du dossier courant
  For Each Flder In Dossier.subfolders
      Idx = Idx + 1
      Cells(Idx, 1).Value = Flder.Path
  Next
  
  'traitement récursif des sous dossiers
  For Each sousRep In Dossier.subfolders
    TousLesDossiers sousRep.Path, Idx
  Next sousRep
  
  Set fso = Nothing
   
End Sub 'fs

Sub test()
  TousLesDossiers "c:\Program Files", 0
End Sub

A voir également

Ajouter un commentaire

Commentaires

kainoak
Messages postés
10
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
23 octobre 2008
-
ca marche pas ton truc !
tu fais la liste des repertoires et ensuite celle des sous-repertoires !
A
B
C
puis :
A1
A2
B1
...

il faut sortir :
A
A1
A2
B
B1
B2
B3
C
...


à améliorer !
cs_papaours
Messages postés
20
Date d'inscription
lundi 6 janvier 2003
Statut
Membre
Dernière intervention
10 septembre 2003
-
cela fonctionne tres bien chez moi
sapass
Messages postés
3
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
1 juin 2006
-
Bonjour,

Merci, super code :o)

Par contre ça fait deux jours que j'essaye d'avoir un résultat classé alphabetique
mais je trouve pas....quelqu'un svp saurait ce qu'il faut ajouter à cette routine ?
(c'est pour tout simplement scanner dossier+sous dossier avec sortie par put dans un
fichier txt)
loginfo
Messages postés
1
Date d'inscription
mercredi 27 décembre 2000
Statut
Membre
Dernière intervention
20 novembre 2008
-
Bonjour,

Très bon code merci beaucoup
danfax
Messages postés
3
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
14 février 2009
-
Simple et efficace : bravo

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.