Return File Size In MB :)

[z0mgItsJohn]

Heres My Newest Ideal :3 Well.. I Noticed That 'FileGetSize' Tells You The File Size In Bytes.. Well I Came Out With A Cool Function To Return The File Size In Mega Bytes!

~Enjoy~

(_FileSize.AU3)

$MegaByte = ('1048576')

Func _FileSize_In_MegaBytes ($File)
$FileSizeInBytes = FileGetSize ($File)
$Equal = $FileSizeInBytes / $MegaByte
$Round = Round ($Equal, '2')
Return $Round
EndFuncoÝ÷ Ù«­¢+Ø%¹±Õ±Ðí}¥±M¥é¹ÔÌÐì((ÀÌØíáµÁ±ô}¥±M¥é}%¹}5   åÑÌ ÅÕ½ÐíèÀäÈí]¥¹½ÝÌÀäÈíU9M%AAL¹áÅÕ½Ðì¤()5Í  ½à À°ÅÕ½Ðí¥±M¥éÅÕ½Ðì°ÀÌØíáµÁ±µÀìÅÕ½Ðì5ÅÕ½Ðì°À

Please Feel Free To Post Questions.. Bugs.. Etc..

Edited February 7, 2008 by John2006

[crzftx]

deleted

Edited August 9, 2017 by crzftx

[z0mgItsJohn]

But.. For The Most Part Do You Thank It Was A Good Ideal :3?

[MrCreatoR]

Here is a function to return display size, so when it needed, it will return KB/MB/GB/TB...

ConsoleWrite(_GetDisplaySize(1023) & @LF) ; Bytes
ConsoleWrite(_GetDisplaySize(1548) & @LF) ; KBytes
ConsoleWrite(_GetDisplaySize(1024 * 1369) & @LF) ;MBytes
ConsoleWrite(_GetDisplaySize(1024 * 1024 * 1876) & @LF) ;GBytes
ConsoleWrite(_GetDisplaySize(1024 * 1024 * 1024 * 1656)) ;TBytes

Func _GetDisplaySize($iSize, $iPlaces = 2)
    Local $aBytes[5] = [' Bytes', ' KB', ' MB', ' GB', ' TB']
    For $i = 4 To 1 Step -1
        If $iSize >= 1024 ^ $i Then
            Return Round($iSize / 1024 ^ $i, $iPlaces) & $aBytes[$i]
        EndIf
    Next
    Return $iSize & ' Bytes'
EndFunc

Edited February 7, 2008 by MsCreatoR

[crzftx]

deleted

Edited August 9, 2017 by crzftx

[crzftx]

Upgrade. Amount, what unit that is in, how many places to round the answer to, should it input as a string?, is the amount in bits?, should the output be in bits?, what unit to output to. If $outputUnit is negative, it's value serves as the maximum unit allowed, but will return the appropriate number otherwise.

for the units

0 = base

1 = kilo

2 = mega

3 = giga

4 = tera

5 = peta

6 = exa

7 = zetta

8 = yotta

9 = ?

Func ConvertSize($inputSize, $inputUnit = 0, $outputPlaces = 2, $outputString = True, $inputBits = False, $outputBits = False, $outputUnit = -4)
    Local $unitNames[9] = ["","K","M","G","T","P","E","Z","Y"]
    Local $bytes = $inputSize * 1024 ^ $inputUnit
    Local $b = "B"
    If $inputBits Then $bytes /= 8
    If $outputBits Then
        $bytes *= 8
        $b = "b"
    EndIf
    If $outputUnit < 0 Then
        Local $outputMax = Abs($outputUnit)
        $outputUnit = Int(Log($bytes)/Log(1024))
        If $outputUnit > $outputMax Then $outputUnit = $outputMax
    EndIf
    If $outputString Then
        Return String(Round($bytes / 1024 ^ $outputUnit, $outputPlaces)) & $unitNames[$outputUnit] & $b
    Else
        Return Round($bytes / 1024 ^ $outputUnit, $outputPlaces)
    EndIf
EndFunc

Edited February 7, 2008 by crzftx

[MrCreatoR]

crzftx

Wow, it's use no loop, and it's so complicated - Nice!

It seems that this is affect only on the TeraBytes...

BTW, AutoIt can not handle with ExaByte values. it returns something like: 1.#QNAN

[crzftx]

deleted

Edited August 9, 2017 by crzftx

[MrCreatoR]

I used ConsoleWrite(ConvertSize(1023,8,2,True,False,False,-10) & @CRLF) and it worked just fine, returning 1023YB.

Yes, but what if we need to convert a bytes to YB? i mean if the data is came from some file, or from InetGetSize (the last one can not get such big size i think), or from inputbox etc.

[crzftx]

Now I see what you mean, 9223372036854775807, (8EB) is the largest value AutoIt understands. That is the largest signed 64 bit integer... can I make it unsigned? that would bring it up to 18446744073709551615.

[Xenobiologist]

Now I see what you mean, 9223372036854775807, (8EB) is the largest value AutoIt understands. That is the largest signed 64 bit integer... can I make it unsigned? that would bring it up to 18446744073709551615.

You can try to make it a float by adding .00 and then e10

Mega