Представление размера файла в понятный вид

#cs
    Единицы измерения информации:
	
	Десятичная:
    Бит       - 10^0
    Килобайт  - 10^3
    Мегабайт  - 10^6
    Гигабайт  - 10^9
    Терабайт  - 10^12
    Петабайт  - 10^15
    Эксабайт  - 10^18
    Зеттабайт - 10^21
    Йоттабайт - 10^24
	
	Двоичная:
    Бит       - 2^0
    Килобайт  - 2^10
    Мегабайт  - 2^20
    Гигабайт  - 2^30
    Терабайт  - 2^40
    Петабайт  - 2^50
    Эксабайт  - 2^60
    Зеттабайт - 2^70
    Йоттабайт - 2^80	
	
	Источник: http://ru.wikipedia.org/wiki/Единицы_измерения_количества_информации
#ce

#include <Misc.au3>

$iSize = __format_GetFileSize(@ScriptDir & '\AutoIt.chm')
MsgBox(0, 'Info', 'File size: ' & $iSize)

Func __format_GetFileSize($sFile, $iFlag = 0)
	Local $iSize, $fRet
	If FileExists($sFile) Then
	    $iSize = FileGetSize($sFile)
	    $fRet = StringFormat('%0.2f Тб', _Iif($iFlag = 1, ($iSize / 10^12), ($iSize / 2^40)))
	    If ($fRet < 0.1) Then $fRet = StringFormat('%0.2f Гб', _Iif($iFlag = 1, ($iSize / 10^9), ($iSize / 2^30)))
		If ($fRet < 0.1) Then $fRet = StringFormat('%0.2f Мб', _Iif($iFlag = 1, ($iSize / 10^6), ($iSize / 2^20)))
		If ($fRet < 0.1) Then $fRet = StringFormat('%0.2f Кб', _Iif($iFlag = 1, ($iSize / 10^3), ($iSize / 2^10)))
		If ($fRet < 0.1) Then $fRet = StringFormat('%0i Б', _Iif($iFlag = 1, ($iSize / 10^0), ($iSize / 2^0)))
    Else 
	    Return SetError(@error, @extended, -1)
	EndIf
	Return $fRet
EndFunc

#include <File.au3>
#include <GUIConstantsEx.au3>
#Include <GuiListView.au3>

$aFiles = _FileListToArray (@SystemDir, "*.*", 1)

GUICreate ("FileSize")
$ListView = GUICtrlCreateListView ("File|Size", 5, 5, 385, 390, -1, $LVS_EX_FULLROWSELECT)
_GUICtrlListView_SetColumnWidth ($ListView, 0, 280)
_GUICtrlListView_SetColumnWidth ($ListView, 1, 70)
GUISetState()

For $i = 1 To $aFiles[0]
    GUICtrlCreateListViewItem ($aFiles[$i] & "|" & _ConvertFileSize(FileGetSize (@SystemDir&'\'&$aFiles[$i])), $ListView)
Next

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _ConvertFileSize($iBytes)
	Local Const $iConst = 0.0000234375 ; (1024 / 1000 - 1) / 1024
    Switch $iBytes
        Case 110154232090684 To 1125323453007766
            $iBytes = Round($iBytes / (1099511627776 + $iBytes * $iConst)) & ' TB'
        Case 1098948684577 To 110154232090683
            $iBytes = Round($iBytes / (1099511627776 + $iBytes * $iConst), 1) & ' TB'
        Case 107572492277 To 1098948684576
            $iBytes = Round($iBytes / (1073741824 + $iBytes * $iConst)) & ' GB'
        Case 1073192075 To 107572492276
            $iBytes = Round($iBytes / (1073741824 + $iBytes * $iConst), 1) & ' GB'
        Case 105156613 To 1073192074
            $iBytes = Round($iBytes / (1048576 + $iBytes * $iConst)) & ' MB'
        Case 1048040 To 105156612
            $iBytes = Round($iBytes / (1048576 + $iBytes * $iConst), 1) & ' MB'
        Case 102693 To 1048039
            $iBytes = Round($iBytes / (1024 + $iBytes * $iConst)) & ' KB'
        Case 1024 To 102692
            $iBytes = Round($iBytes / (1024 + $iBytes * $iConst), 1) & ' KB'
        Case 0 To 1023
            $iBytes = Int($iBytes / 1.024)
    EndSwitch
    Return $iBytes
EndFunc   ;==>_ConvertFileSize

ConsoleWrite(_StringGetFormattedSize(1023) & @LF) ; Bytes
ConsoleWrite(_StringGetFormattedSize(1748) & @LF) ; KBytes
ConsoleWrite(_StringGetFormattedSize(1024 * 1369) & @LF) ;MBytes
ConsoleWrite(_StringGetFormattedSize(1024 * 1369 * 1876) & @LF) ;GBytes
ConsoleWrite(_StringGetFormattedSize(1024 * 1369 * 1624 * 1656) & @LF) ;TBytes
ConsoleWrite(_StringGetFormattedSize(1024 * 1369 * 1624 * 1656 * 1543) & @LF) ;PBytes (wrong?)
ConsoleWrite(_StringGetFormattedSize(1024 * 1369 * 1624 * 1656 * 1543 * 1357) & @LF) ;EBytes (wrong?)

Func _StringGetBytesDisplaySize($iInputSize, $iInputUnit = 0, $iRound = 2, $iInputBits = False, $iOutputBits = False, $iOutputUnit = -4)
	Local $aUnitNames[9] = ["", "K", "M", "G", "T", "P", "E", "Z", "Y"]
	Local $iBytes = $iInputSize * 1024 ^ $iInputUnit
	Local $sB = "B"
	
	If $iInputBits Then $iBytes /= 8
	
	If $iOutputBits Then
		$iBytes *= 8
		$sB = "b"
	EndIf
	
    If $iOutputUnit < 0 Then
		Local $iOutputMax = Abs($iOutputUnit)
		$iOutputUnit = Int(Log($iBytes) / Log(1024))
		If $iOutputUnit > $iOutputMax Then $iOutputUnit = $iOutputMax
	EndIf
	
	If $aUnitNames[$iOutputUnit] = "" Then $sB = "Bytes"
	Return String(Round($iBytes / 1024 ^ $iOutputUnit, $iRound)) & " " & $aUnitNames[$iOutputUnit] & $sB
EndFunc