Accéder aux fichiers et répertoires d'un disque

Bonjour
Je n'ai pas de problèmes pour lire les noms de fichier d'un répertoire; par contre je ne sais pas comment procéder à partir d'un disque.:(
C'est surtout les noms de répertoire qui sont à la racine qui m'intéressent.:?

Citation:

---

C'est surtout les noms de répertoire qui sont à la racine qui m'intéressent.

---

Il ne faut surtout pas utiliser "GetDrive" mais considérer le lecteur comme étant un dossier normal :

Code:

---

1 2 3 4 5 6 7

Dim fso,drv,Fold Set fso = CreateObject("Scripting.FileSystemObject") Set drv = fso.GetFolder("C:\") For Each Fold In Drv.SubFolders S = S + Fold.Name +VbNewLine Next MsgBox S

---

Merci, c'est ce que j'attendais.