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

15 votes460 views2 answers
Xl vba dynamic string array
VBA
20 votes474 views1 answer
Excel vba recursive example factorial function
VBA
0 vote428 views1 answer
Wpf dark title bar
VBA
0 vote360 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote346 views1 answer
Group controls programmatically vb
VBA
-1 vote332 views1 answer
How to correct a number to 2 decimal places in vba
VBA
7 votes353 views1 answer
Vba array declaration
VBA
4 votes321 views2 answers
Vba array length
VBA
0 vote362 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote360 views2 answers
Vb.net include quotes in string
VBA