Visual Basic - Tamaño d un dirctorio seleccionado (urg), gracias

Hola a todos, necesito saber la forma de obtener el tamaño de un directorio seleccionado, así como el número de directorios y archivos que contiene.

Muchas gracias.

Este ejemplo lo he encontrado a través del MSDN, buscando 'filesystemobject'

Private Sub Command3_Click()
Dim fso As New FileSystemObject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
s = "Unidad " & UCase("c:") & " - "
s = s & drv.VolumeName & vbCrLf
s = s & "Espacio total: " & FormatNumber(drv.TotalSize / 1024, 0)
s = s & " Kb" & vbCrLf
s = s & "Espacio libre: " & FormatNumber(drv.FreeSpace / 1024, 0)
s = s & " KB" & vbCrLf
MsgBox s
End Sub

Viene añgún ejemplo más
Si esto:
Dim fso As New FileSystemObject, drv As Drive
no te funciona, prueba
Dim fso
Dim drv

Set fs = CreateObject("Scripting.FileSystemObject")
Set Directorio = fs.getfolder(DirectorioFicheros)

A ver si te sirve