盘一个Excel文件管理器!番外打补丁-文件大小

Select Case True '文件大小Case Mfile.Size >= 1073741824  .Cells(Spos, 5) = Round(Mfile.Size / 1024 ^ 3, 2) & " GB"Case Mfile.Size >= 1048576  .Cells(Spos, 5) = Round(Mfile.Size / 1024 ^ 2, 2) & " MB"Case Mfile.Size >= 1024  .Cells(Spos, 5) = Round(Mfile.Size / 1024, 2) & " KB"Case Else  .Cells(Spos, 5) = Mfile.Size & " Byte"End Select