[Resolvido] Saber o Tamanho de uma Pasta

[Salgado 4]

Código postado por nosso amigo Silas_i

<%
' Formats given size in bytes,KB,MB and GB
 Function FormatSize (givenSize)
     If (givenSize < 1024) Then
       FormatSize = givenSize & " B"
     ElseIf (givenSize < 1024*1024) Then
       FormatSize = FormatNumber(givenSize/1024,2) & " KB"
     ElseIf (givenSize < 1024*1024*1024) Then
       FormatSize = FormatNumber(givenSize/(1024*1024),2) & " MB"
     Else
       FormatSize = FormatNumber(givenSize/(1024*1024*1024),2) & " GB"
     End If
 End Function
       givenSize = server.mappath("Pasta")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set pasta = fso.GetFolder(givenSize)
Response.Write FormatSize(pasta.Size)%>