Public Function formatdsize(dsize)<br />
if dsize>=1073741824 then<br />
formatdsize=Formatnumber(dsize/1073741824,2) & " GB"<br />
elseif dsize>=1048576 then<br />
formatdsize=Formatnumber(dsize/1048576,2) & " MB"<br />
elseif dsize>=1024 then<br />
formatdsize=Formatnumber(dsize/1024,2) & " KB"<br />
else<br />
formatdsize=dsize & "B"<br />
end if<br />
End Function<br />
<br />
Function Showsize(Show)<br />
Dim ShowS<br />
ShowS = Show & " Byte"<br />
If Show > 1024 Then<br />
Show = (Show / 1024)<br />
ShowS = FormatNumber(Show, 2) & " KB"<br />
End If<br />
If Show > 1024 Then<br />
Show = (Show / 1024)<br />
ShowS = FormatNumber(Show, 2) & " MB"<br />
End If<br />
If Show > 1024 Then<br />
Show = (Show / 1024)<br />
ShowS = FormatNumber(Show, 2) & " GB"<br />
End If<br />
Showsize = ShowS<br />
End Function