Public ligne As Long
Public fso
Sub verifier_contenu_disque()
Set fso = CreateObject("Scripting.FileSystemObject")
ligne = 1
Call verif("P:\")
End Sub
Sub verif(chemin)
Set dossier = fso.getfolder(chemin)
For Each sousdossier In dossier.subFolders
Cells(ligne, 1) = sousdossier.Name
Cells(ligne, 2) = sousdossier.Path
Call verif(sousdossier.Path)
ligne = ligne + 1
Next
End Sub