Obtener tamaño de un archivo en KB y MB

Supongamos que deseas saber el pero de un archivo al seleccionarlo en un FileUpload, para el ejemplo tendremos :
  • Label1
  • FileUpload1
  • Button1

 
 

Copiamos el siguiente código en el button1:
Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
'revisa tamaño del archivo
Dim tamanio_archivo As Integer = FileUpload1.PostedFile.ContentLength
If tamanio_archivo < 1048576 Then
   tamanio_archivo = tamanio_archivo / 1024   Me.Label1.Text = "El archivo pesa " + Str(tamanio_archivo) + "KB"
Else
   tamanio_archivo = tamanio_archivo / 1024 / 1024
   tamanio_archivo = FormatNumber(tamanio_archivo, 1)   Me.Label1.Text = "El archivo pesa " + Str(tamanio_archivo) + "MB"
End If
End Sub


El resultado:

Publicar un comentario

0 Comentarios