Private Sub Command1_Click()
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\xxx")
s = UCase(f.Name) & " utilise " & f.Size & " Octets"
MsgBox s
End Sub