#define humanfilesize
/*
=========== Napsal MEN-X ===============
 Tento script zjistí velikost souboru a
 zaokrouhlí jí na největší jednotky
========================================
argument0 = soubor, pro který chcete zjistit velikost
argument1 = vracená hodnota: 0 = např. "1 MB" , 1 = např "1"
*/
var s,i,f,size,ret;

if (!file_exists(argument0))
    return -1;
else
{
    f=file_bin_open(argument0,0);
    size=file_bin_size(f);
    file_bin_close(f);
    s[0]="b";
    s[1]="kb";
    s[2]="MB";
    s[3]="GB";
    s[4]="TB";
    i=0;
    while(size>1024)
    {
        size=size/1024;
        i+=1;
    }
    size=round_ext(size,2);
    
    if (argument1=0)
        ret=string(size)+" "+string(s[i]);
    if (argument1=1)
        ret=size;
        
    return ret;
}