Non riesco a trasformare il valore in bytes che mi fornisce il codice qui sotto, in KB, MB, GB in base alle reali dimensioni.

<%
Function getSize(NOMEFILE)'Determine the size of the file

Set fsobj=Server.CreateObject("Scripting.FileSystemObj ect")
Set auto=fsobj.GetFile(server.mappath(NOMEFILE))
getSize=auto.size

End Function
%>

Questo codice mi da le dimensioni in bytes del file, ma io non riesco a trasformale in kb , mb, o gb.... cioè se il file è di 100KB lo script così mi da 102400 bytes, ma non riesco a cenvertirli in modo che mi mostr 100 kb.... Qulacuno mi può aiutare????? perfavore....