dê seu feedback
post favorito
Função que retorna o tamanho do arquivo
Função que retorna o tamanho do arquivo
em GB, MB, KB ou Byte dependendo do tamanho
<html>
<head><title>teste</title></head>
<body>
<%
Function getSize(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)
if Retorno > 1 then s = "s"
Retorno = Retorno &" Byte"&s
End If
Else
Retorno = "n/a"
End If
'Retornando a função
getSize = Retorno
End Function
%>
<%=getSize(1368391680)%>
</body>
</html>
<html>
<head><title>teste</title></head>
<body>
<%
Function getSize(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)
if Retorno > 1 then s = "s"
Retorno = Retorno &" Byte"&s
End If
Else
Retorno = "n/a"
End If
'Retornando a função
getSize = Retorno
End Function
%>
<%=getSize(1368391680)%>
</body>
</html>
0 COMENTÁRIO
[Este post ainda não foi associado a uma sequência]
Você está em:
canal ASP
Publicidade
Estudo comparativo entre banco de dados IBM Informix e Microsoft SQL
Gregory Monteiro
Space do autor
Programador/administrador dos sites da DevMedia.
Formado em sistemas de informação.
Certificados SEO pela mestreseo e ietv.
Certificado CMMI pela FIOCRUZ.
Curso de web developer pela microcamp.
Administrador de redes.
Conhecimentos em C#, VB.NET, ASP, PHP, JSP, HTML, XHTML, HTML5, Ajax, CSS3, ...
Space do autor
1
0
Conheça os planos de créditos DevMedia e visualize esse post agora mesmo!