Nån som har nåt knep att räkna ut filstorlek i kb istället för bytes ? Antar att dessa bytes får avrundas till ett lämpligt heltal på nåt sätt !? Hej mig själv, här har du en lösning :o)kb istället för byte
' Nuvarande kod
Set FSO = CreateObject("Scriptning.FileSystemObject")
Set F = FSO.GetFile("C:\mapp\fil.zip")
Response.Write(F.Size)
Response.Write(" byte.")
mvh
TorbjörnSv: kb istället för byte
ex. 1024 byte blir 1.0 kb
ex. 1048576 byte blir 1.0 mb
osv i den stilen!
TorbjörnJag svarar på min egen fråga =o)
----------------------------------------------------------------
<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\inetpub\wwwroot\library\fil.zip")
FSize = File.Size
Function FileSize(intFileSize)
Decimaler = 1
FileSizeBytes = 1
FileSizeKiloByte = 1024
FileSizeMegaByte = 1048576
FileSizeGigaByte = 1073741824
FileSizeTeraByte = 1099511627776
FileSizeExabyte = 1125899906842624
Dim strFileSize, newFilesize
If (Int(intFileSize / FileSizeExaByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeExaByte, Decimaler)
strFileSize = newFilesize & " Eb"
ElseIf (Int(intFileSize / FileSizeTeraByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeTeraByte, Decimaler)
strFileSize = newFilesize & " Tb"
ElseIf (Int(intFileSize / FileSizeGigaByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeGigaByte, Decimaler)
strFileSize = newFilesize & " Gb"
ElseIf (Int(intFileSize / FileSizeMegaByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeMegaByte, Decimaler)
strFileSize = newFilesize & " Mb"
ElseIf (Int(intFileSize / FileSizeKiloByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeKiloByte, Decimaler)
strFileSize = newFilesize & " Kb"
ElseIf (Int(intFileSize / FileSizeBytes) <> 0) Then
newFilesize = intFilesize
strFileSize = newFilesize & " Byte"
ElseIf Int(intFileSize) = 0 Then
strFilesize = 0 & " Bytes"
End If
FileSize = strFileSize
End Function
%>
<html>
<body>
Filstorlek:<br>
Filnamn - <%=FileSize(FSize)%>
</body>
</html>
-----------------------------------------------------------------
/ Jag är dock inte helt säker på stavningen av
Exabyte = 1024 Terabyte
mvh
Torbjörn