原贴地址：http://bbs.blueidea.com/thread-2864029-1-1.html
参考资料：http://zh.wikipedia.org/w/index.php?title=Yottabyte&variant=zh-cn

Public Function SenFe_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
	SenFe_GetFileSize = FormatNumber(iSize, 2) & " " & sUnit
End Function

转载请注明出处