[thelist] ASP/VBScript Byte conversion

[Pringle, Ron]

> > I'm using the ASP File Object to return the size of a PDF in 
> > bytes. I want
> > to convert and display the size in MB/KB/Bytes, depending 
> on the size.
> 
> Are you talking about the mathematical conversion, just 
> dividing by 1024
> from bytes to kilobytes, the same from kilobytes to megabytes? Or are
> you looking for more than that?
> 
> joel

Joel-

Mathematical conversion. I think I solved my own problem though. This code
seems to be working:

<%
Function SetBytes(Bytes)

If Bytes >= 1073741824 Then
	SetBytes = Round(FormatNumber(Bytes / 1024 / 1024 / 1024, 2), 0) & "
GB"
ElseIf Bytes >= 1048576 Then
	SetBytes = Round(FormatNumber(Bytes / 1024 / 1024, 2), 0) & " MB"
ElseIf Bytes >= 1024 Then
	SetBytes = Round(FormatNumber(Bytes / 1024, 2), 0) & " KB"
ElseIf Bytes < 1024 Then
	SetBytes = Bytes & " Bytes"
Else
	SetBytes = "0 Bytes"
End If

End Function
%>

Ron