Tamanho de umas pasta no server

[silas_i 0]

Pessoal eu não lembro como se faz para mostrar o tamanho de uma certa pasta no servidor !?Alguém sabe !? é feito em FSO, certo !?valeu pela ajuda !

[Salgado 4]

beleza, Silas?

Dá uma olhada aqui que tem o q você quer

[silas_i 0]

Legal... eu consegui uma função que já mostra o tamanho em MB, GB e etc...

 

<%' 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 = "d:\dominio.com.br\"Set fso = Server.CreateObject("Scripting.FileSystemObject") Set pasta = fso.GetFolder(givenSize) Response.Write FormatSize(pasta.Size)       %>

[silas_i 0]

Legal... eu consegui uma função que já mostra o tamanho em MB, GB e etc...

 

<%

' 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 = "d:\dominio.com.br\"

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set pasta = fso.GetFolder(givenSize)

Response.Write FormatSize(pasta.Size)

     

%>

Salgado... se você quiser coloca na área de códigos !!