TamañoCarpeta ("C:\")
'*****************************************************************************************
'* Devuelve el tamaño de la carpeta pasada como parámetro
'*****************************************************************************************
Function TamañoCarpeta(strCarpeta) 
Dim fso, 
    Carpeta
Set fso = CreateObject("Scripting.FileSystemObject")
Set Carpeta = fso.GetFolder(strCarpeta)
TamañoCarpeta = Carpeta.size/1024 & " Kb"
End Function ' TamañoCarpeta