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 vote259 views1 answer
Set datetimepicker value to null vb
VBA
1 vote234 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
0 vote271 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
0 vote245 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote238 views1 answer
Vbscript Trim
VBA
0 vote229 views1 answer
Vba createparameter null
VBA
1 vote262 views1 answer
Vba ubound array 2-dimensional
VBA
0 vote195 views1 answer
How to self delete a vbscript file
VBA
0 vote247 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
0 vote261 views1 answer
How to mount floppy disks in vb.net
VBA