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

-1 vote221 views2 answers
How close excel through visual basic
VBA
0 vote255 views1 answer
Vba DisplayGridlines
VBA
0 vote245 views1 answer
For each item in folder outlook vba
VBA
0 vote212 views1 answer
Vba word pdf table to excel
VBA
3 votes234 views1 answer
Vba double quote
VBA
0 vote256 views1 answer
Excel vba unlock sheet without password
VBA
18 votes399 views3 answers
Excel-vba make integer
VBA
0 vote228 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote223 views2 answers
How to concatenate more than 40 lines in vba
VBA
0 vote231 views1 answer
How to format a textbox as date vb net
VBA