Home › 2_2002-2004 › Convert Bytes to KB or MB
Advertisement
2_2002-2004 Coding Standards #118901

Convert Bytes to KB or MB

CovertLoop
★★★★★
4.8 · Downloads: 2,341

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

AI

AI Samenvatting: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Broncode
original-source 
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
Originele reacties (3)
Hersteld van de Wayback Machine