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 vote177 views1 answer
How to put a gridpain in a vbox
VBA
8 votes188 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote180 views1 answer
WGET FTP
VBA
5 votes191 views1 answer
Vba low byte from INTEGER
VBA
0 vote169 views1 answer
Loop through lines in text file vb net
VBA
0 vote170 views1 answer
Internet explorer reference vba
VBA
3 votes164 views1 answer
Vba request json
VBA
0 vote172 views1 answer
Select case vba
VBA
-1 vote225 views1 answer
Vba sendkeys
VBA
1 vote166 views1 answer
Excel vba make cell visible
VBA