Lister Dossier Racine Disque Dur

Bonjour,

J'aimerais avoir une macro qui pourrais lister le nom des dossier présent dans mon DD externe. J'ai trouvé plein de solutions pour lister tout les dossiers et les fichiers, mais pas seulement les dossiers à la racine du disque.

Merci Beaucoup

bonjour,

essaie ceci (n fonctionne pas sur Mac)

Sub listdir()
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set Root = fs.getfolder("c:\") ' drive à lister
    For Each f In Root.subFolders
        ctr = ctr + 1
        Cells(ctr, 1) = f.Name
    Next
End Sub

Top ça fonctionne super bien merci !!

Par hasard est ce qu'il y a un moyen que ça ne me remplisse pas tout le temps la colonne A mais que les nouvelles exécution se fasse sur les colonne B, C, D ect.

Merci

bonsoir,

une adaptation;

Sub listdir()
    col = 1
    Do While Cells(1, col) <> ""
    col = col + 1
    Loop
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set Root = fs.getfolder("c:\")
    For Each f In Root.subFolders
        ctr = ctr + 1
        Cells(ctr, col) = f.Name
    Next
End Sub

Ça fonctionne parfaitement !

Merci Beaucoup