récupération des nom des dossier dans un répértoire

[akramenergie]

Bonjour mes amis j'ai un petit souci je voudrais extraire les nom des dossier qui se trouve dans un répertoire

pouriez vous m'aider😕

 

[BOISGONTIER]

Re : récupération des nom des dossier dans un répértoire

Bonjour,

Gestion des fichiers et répertoires

JB

 

[Efgé]

Re : récupération des nom des dossier dans un répértoire

Bonjour,
Ce fichier de MDF (ou JB ?) devrait vous être utile
Cordialement

 

[mromain]

Re : récupération des nom des dossier dans un répértoire

bonjour akramenergie, BOISGONTIER, Efgé

voici une solution :

Sub test()
Dim dossierAnalyse As Object, sousDossier As Object, i As Integer

Set dossierAnalyse = CreateObject("Scripting.FileSystemObject").GetFolder("E:\")

For Each sousDossier In dossierAnalyse.SubFolders
    i = i + 1
    Range("A" & i) = sousDossier.Path
Next sousDossier
End Sub

a+

 

[Efgé]

Re : récupération des nom des dossier dans un répértoire

Bonjour BOISGONTIER,
Vous avez été plus rapide....

 

[MJ13]

Re : récupération des nom des dossier dans un répértoire

Bonjour à tous

Sinon, voir sous ma signature, l'utilitaire MJ V3a qui le fait facilement.

 

[Brigitte]

Re : récupération des nom des dossier dans un répértoire

Bonjour,

Pour que la fête soit totale, voici le fichier de mdf (le premier est de jb... comme le nom du fichier l'indique et comme boisgontier l'a remis d'ailleurs).

J'ai plusieurs versions, je crois que c'est la bonne.

Et la même avec le poids des fichiers...

 

[Roland_M]

Re : récupération des nom des dossier dans un répértoire

bonjour à tous

voir ci-joint !