Categorias

Retornar o tamanho em bytes por extenso

Esta função realiza uma conversão de bytes para Kb, Mb ou Gb dependendo do tamanho em bytes passados.

Por exemplo:

– Se for passado 500 a função retornará “500 bytes”
– Para 1024 o retorno será “1 Kb”
– Para 1048576 o retorno será “1 Mb”
– Para 1073741824 o retorno será “1 Gb”

Esta função pode ser muito útil na hora de mostrar o tamanho de um arquivo, por exemplo.

= 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)
%>