En muchas ocasiones enlazamos un documento desde una página web. Desde un punto de vista de accesibilidad web, es interesante especificar el tamaño de ese documento, para que el usuario pueda saberlo antes de descargarlo.
El siguiente método va a recibir la ruta del fichero y va a devolver una cadena con la información relativa al tamaño del mismo.
El resultado se mostrará de manera sencilla, y en función del tamaño que ocupe, se expresará en Kb o Mb. Si el fichero ocupa más de 1024 Kb, su tamaño se mostrará en Mb.
Veámos el código:
Public Function getTamFile(ByVal path As String) As String
Dim fi As New FileInfo(path)
If fi.Exists Then
If (fi.Length / 1024) > 1024 Then
Return Math.Round(((fi.Length / 1024) / 1024), 2).ToString() & " Mb"
Else
Return Math.Round((fi.Length / 1024), 2).ToString() & " Kb"
End If
Else
Return String.Empty
End If
End FunctionCabe destacar que para calcular el tamaño del fichero hacemos uso de la clase FileInfo. Dejo un enlace a la documentación en el apartado de “Más información”.
