• Home
 · 
• Coding Standards
 · 
• Convert Bytes to KB or MB

Convert Bytes to KB or MB

This code will enable you to convert bytes to kilobytes or megabytes, whichever you choose. Vote if ya wanna.

Rate Convert Bytes to KB or MB

• 1
• 2
• 3
• 4
• 5

(7(7 Vote))

Private Declare Function StrFormatByteSize Lib _
"shlwapi" Alias "StrFormatByteSizeA" (ByVal _
dw As Long, ByVal pszBuf As String, ByRef _
cchBuf As Long) As String
Public Function FormatKB(ByVal Amount As Long) _
As String
Dim Buffer As String
Dim Result As String
Buffer = Space$(255)
Result = StrFormatByteSize(Amount, Buffer, _
Len(Buffer))
If InStr(Result, vbNullChar) > 1 Then
FormatKB = Left$(Result, InStr(Result, _
vbNullChar) - 1)
End If
End Function