Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Apr 27, 2002

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 If
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date