苦寒竹

以前转换单位时写几个判断就行了，前些日子看到这则消息

引用:

惠普 StorageWorks 部门经理 David Roberson 预言说，到 2013 年，每年全球的存储设备产业将输出 1 Yottabyte （“佑字节”，即十亿 GB）的存储能力。Roberson 是在与惠普联合发布一套可集成四个刀片服务器和三个共计 820TB 的存储阵列的新机架系统时发表这一评论的
据企业战略分析师 Mark Peters 称，许多厂商正在迁移到这种平台，这其中就包括最近收购了Israeli startup XIV 的 IBM
参考资料（来源：Wikipedia）
1YB = 1,024 ZB
1YB = 1,048,576 EB
1YB = 1,073,741,824 PB
1YB = 1,099,511,627,776 TB
1YB = 1,125,899,906,842,624 GB
1YB = 1,152,921,504,606,846,976 MB
1YB = 1,180,591,620,717,411,303,424 KB
1YB = 1,208,925,819,614,629,174,706,176 B

刚才刚好需要用这个函数，把原来的函数重新写了下：

引用:

Public Function GetFileSize(iSize)
        Dim aUnit, sUnit, I
        aUnit = Array("B", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB")
        I = 0
        sUnit = aUnit(0)
        Do While iSize >= 1024 And I < UBound(aUnit)
            I = I + 1
            iSize = iSize / 1024
            sUnit = aUnit(I)
        Loop
        GetFileSize = FormatNumber(iSize, 2) & " " & sUnit
    End Function

共享给大家，希望对你有用。

来源：http://bbs.blueidea.com/thread-2864029-1-1.html