FormatSize – Format a size expressed in bytes

' Returns a formatted string that shows the size in Bytes, KBytes or MBytes' according to the size' Usage:'   Dim ProperSizeString As String = FormatSize("132100842")'   -> returns "125.98 MB"Function FormatSize(ByVal SizeInBytes As Double) As String  If SizeInBytes < 1024 Then    Return String.Format("{0:N0} B", SizeInBytes)  ElseIf SizeInBytes < 1024 * 1024 Then    Return String.Format("{0:N2} KB", SizeInBytes / 1024)  Else    Return String.Format("{0:N2} MB", SizeInBytes / (1024 * 1024))  End IfEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: