Excel vba number format file size

Select Case objFile.Size
        Case 0 To 1023
            Cells(NextRow, "D").Value = Format(objFile.Size, "0") & "B"
        Case 1024 To 1048575
            Cells(NextRow, "D").Value = Format(objFile.Size / 1024, "0") & "KB"
        Case 1048576 To 1073741823
            Cells(NextRow, "D").Value = Format(objFile.Size / 1048576, "0") & "MB"
        Case 1073741824 To 1.11111111111074E+20
            Cells(NextRow, "D").Value = Format(objFile.Size / 1073741823, "0.00") & "GB"
End Select

Source: mrexcel.com

Excel vba number format file size

[<1000000]0.00," KB";[<1000000000]0.00,," MB";0.00,,," GB"

Source: social.msdn.microsoft.com

Similar codes

0 vote296 views2 answers
Get excel file from email attachment in vba
VBA
1 vote328 views2 answers
Vba find last row in range for certain criteria
VBA
0 vote268 views1 answer
Vba dropdown event
VBA
0 vote309 views1 answer
Menus act like radio buttons vb.net
VBA
-1 vote279 views1 answer
For i in range vba
VBA
0 vote266 views1 answer
Add Formula to Shape Text in VBA
VBA
2 votes292 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote309 views2 answers
Checking and changing system volume vb.net
VBA
0 vote270 views1 answer
Vba apostrophe chr
VBA
0 vote295 views1 answer
Ribbon show/hide
VBA