jag använder en function som gör om ett tal till mb, kb och b!
Koden ser ut så här:
<%
'********************************************************************
' ConvFileSize: Konventerar filstorlek (i byte) till kB, MB och GB.
'********************************************************************
Function ConvFileSize (FileSize, Decimaler)
Dim DotPos, strFileSize
FileSize = cDbl(FileSize)
' Gigabytes.
If FileSize >= 1048576000 Then
strFileSize = cStr(cSng(FileSize / 1048576000))
DotPos = Instr(strFileSize, ".")
IF DotPos THEN
IF Decimaler = 0 THEN Decimaler = -1
strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
END IF
strFileSize = strFileSize + " gb"
' Megabytes.
ElseIf FileSize >= 1048576 THEN
strFileSize = cStr(cSng(FileSize / 1048576))
DotPos = Instr(strFileSize, ".")
IF DotPos THEN
IF Decimaler = 0 THEN Decimaler = -1
strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
END IF
strFileSize = strFileSize + " mb"
' Kilboytes.
ElseIf FileSize >= 1024 THEN
strFileSize = cStr(cSng(FileSize / 1024))
DotPos = InStr(strFileSize, ".")
IF DotPos THEN
IF Decimaler = 0 THEN Decimaler = -1
strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
END IF
strFileSize = strFileSize + " kb"
' Bytes.
Else
IF FileSize > 1 THEN
strFileSize = cStr(Int(FileSize)) + " b"
ELSE
strFileSize = cStr(Int(FileSize)) + " b"
END IF
END IF
ConvFileSize = Trim(strFileSize)
End Function
%>
Sen i en loop har jag:
sise= ConvFileSize(objFile("MDownSize"),1)
Och skriver ut det med
<%=sise%>
Problemet är att jag får följande resultat:
5,727123 mb när jag borde få 5.7 mb
Fattar noll! Ett tag funkade det på min dator men på mina kollegors gjorde det inte...
------------------
Data-Doktorn
Min egen musik!
Mitt coverband