<%
'-----------------------------------------------------
'Funcao: getTamanho(ByVal Tamanho)
'Sinopse: Converte o tamanho de bytes para Kb, Mb ou Gb
'Parametro(s):
'    Tamanho: Tamanho expressos em Bytes
'Retorno: String
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function getTamanho(ByVal Tamanho)
    On Error Resume Next
    Dim Retorno
    Tamanho = CLng(Tamanho)
    If IsNumeric(Tamanho) Then
        If Tamanho >= 1073741824 Then
            Retorno = Round(((Tamanho/1024)/1024)/1024,1)
            Retorno = Retorno & " Gb"            
        ElseIf Tamanho < 1073741824 And Tamanho >= 1048576 Then
            Retorno = Round((Tamanho/1024)/1024,1)
            Retorno = Retorno & " Mb"
        ElseIf Tamanho < 1048576 And Tamanho >= 1024 Then
            Retorno = Round((Tamanho/1024),1)
            Retorno = Retorno & " Kb"
        Else 
            Retorno = Round((Tamanho),1)
            Retorno = Retorno & " bytes"
        End If
    Else
        Retorno = "n/a"
    End If
    'Retornando a função
    getTamanho = Retorno
End Function

'EXEMPLO DE CHAMADA 
Response.Write "Exemplo de Chamada:" & getTamanho(1073741824)
%>