程序代碼 <% '功能:儲存單位轉換函數(shù) Function FormatFileSize(iSize) Dim aUnits, I aUnits = Array("B", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB") I = Log(Abs(iSize)) / 7 If I > UBound(aUnits) Then I = UBound(aUnits) FormatFileSize = FormatNumber(iSize / (1024 ^ I), 2, -1) & " " & aUnits(I) End Function %>
