Discussion :

[papyxy]

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.

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[papyxy]

Merci, c'est ce que j'attendais.