Liste Excel des sous-répertoires d'un répertoireRésolu

Question

Bonjour à tous, Je pensais trouver rapidement une réponse à mon problème dans les FAQ ou le forum, mais je patauge avec GetAttr! Je souhaite extraire dans une feuille Excel la liste de tous les sous-répertoires, cachés, vides et lecture seule compris, d'un répertoire SANS les fichiers directement sous la racine du répertoire. J'ai le code ci-joint, mais il me manque les sous-répertoires cachés (vbHidden) et en lecture seule (vbReadOnly)... Sub Lister() Columns("A:A").ClearContents chemin = InputBox("Entrez le chemin du répertoire", "Répertoire") If (Right$(chemin, 1) <> "") Then chemin = chemin + "" MonRep = Dir(chemin, vbDirectory) i = 1 Do While MonRep <> "" If MonRep <> "." And MonRep <> ".." Then If (GetAttr(chemin & MonRep) _ And vbDirectory) = vbDirectory Then Range("A" & i).Value = MonRep i = i + 1 End If End If MonRep = Dir Loop End Sub J'ai un peu honte par ce que ça ne doit pas être compliqué Merci beaucoup Cordialement Rataxes64

CerberusPau · Accepted Answer

Peuh,
Quel gros bêta fais-je...

MonRep = Dir(Chemin, vbDirectory Or vbSystem Or vbHidden Or vbReadOnly)

Bon, promis, je commencerai mieux l'année que je ne la termine!

Allez, meilleurs voeux à tous
Rataxes64

Liste Excel des sous-répertoires d'un répertoire

1 réponse

Votre réponse

Discussions similaires