include("../include.php"); writeHeader("Format file size", "Programming » Visual Basic 6 » Visual Basic 6 Code » Strings » ");?>
Private Declare Function StrFormatByteSize Lib _ "shlwapi" Alias "StrFormatByteSizeA" (ByVal _ dw As Long, ByVal pszBuf As String, ByRef _ cchBuf As Long) As String Private 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