l'exemple ci dessous affiche la taille (en octets) du dossier C/:mes documents , dans la cellule A1
Sub NombreOctetsRepertoire()
Dim Rep As Object
Set Rep = CreateObject("Scripting.FileSystemObject")
Range("A1")=Rep.GetFolder("C:\Mes documents").Size
End Sub