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