Grazie, ecco un codice test


codice:
Public link1a As String
Public size1a As String

Private Sub Form_Load()

Set fso = CreateObject("Scripting.FileSystemObject")
Set fd1 = CreateObject("Scripting.FileSystemObject")
Dim c1

link1a = "D:\#TIMedia\1"

' calcola la dimensione della dir
Set fd1a = fso.GetFolder(link1a)
c1 = fd1a.Size
size1a = Format(fd1a.Size / 1024 / 1024, "#0")
Set fd1a = Nothing
Set fso1 = Nothing
Set c1 = Nothing

Label1.Caption = size1a

End Sub

Private Sub Timer1_Timer()
Form1.Refresh
End Sub