MB i mappe

Du kan prøve sådan her:


<%
dim fso,fo
set fso=Server.CreateObject("Scripting.FileSystemObject")
set fo=fso.GetFolder("c:\test")
Response.Write("The size of the folder test is: ")
Response.Write(fo.Size & " bytes.")
set fo=nothing
set fso=nothing
%>

Ja det dur, hvordan får jeg den til at vise KB eller MB ??

Fandt jeg så ud af selv heh..
Size: 10852287 bytes.
Size: 10597.9365234375 kilobyte
Size: 10.3495473861694 megabyte

Hvordan får jeg den så til at lade være med alle de decimaler??
men så jeg bare får 1 eller 2 decimaler

<%
dim fso,fo,kb,mb
set fso=Server.CreateObject("Scripting.FileSystemObject")
set fo=fso.GetFolder("c:\test")

kb = CInt(fo.Size) * CInt("1024")
mb = CInt(fo.Size) * CInt("1024") * CInt("1024")

Response.Write("The size of the folder test is: ")
Response.Write(kb & " KBytes")
set fo=nothing
set fso=nothing
%>

Prøv det :)

Skulle være svar...

znuggle, sys ik helt det fungerer efter tanken

Microsoft VBScript runtime error '800a0006'

Overflow: 'CInt'

/login/auth/zone.asp, line 26

Så Prøv :)

<%
dim fso,fo,kb,mb
set fso=Server.CreateObject("Scripting.FileSystemObject")
set fo=fso.GetFolder("c:\test")

kb = fo.Size / 1024
mb = (fo.Size / 1024) / 1024

Response.Write("The size of the folder test is: ")
Response.Write(kb & " KBytes")
set fo=nothing
set fso=nothing
%>

Ja.
http://www.ziex.net/login/auth/memberzone.asp
user: ziex.net
pass: test

Men der er for mange decimaler på.. hvordan får jeg det ned på 1 eller 2 decimaler?

Prøv:

<%
dim fso,fo,kb,mb
set fso=Server.CreateObject("Scripting.FileSystemObject")
set fo=fso.GetFolder("c:\test")

kb = fo.Size / 1024
mb = (fo.Size / 1024) / 1024

kb = FormatNumber(kb,2)
mb = FormatNumber(mb,2)

Response.Write("The size of the folder test is: ")
Response.Write(kb & " KBytes")
set fo=nothing
set fso=nothing
%>

Znuggle har bar ganget i stedet for at dividere, så den lavede overflow
hvis vi bruger hans kode så skal det så lyde
<%
dim fso,fo,kb,mb
set fso=Server.CreateObject("Scripting.FileSystemObject")
set fo=fso.GetFolder("c:\test")

kb = CInt(fo.Size) / CInt("1024")
mb = (CInt(fo.Size) / CInt("1024")) / CInt("1024")

Response.Write("The size of the folder test is: ")
Response.Write(kb & " KBytes")
set fo=nothing
set fso=nothing
%>

Prøv det :)

cpufan >> prøv at se znuggle.com kode 08/01-2004 13:32:08
Prøv også at se fbhzone spørgsmål 08/01-2004 13:37:20 -- Men der er for mange decimaler på.. hvordan får jeg det ned på 1 eller 2 decimaler?

Ja med typecasting til Int, bliver det jo godt nok uden decimaler,

:)

ingen har altså haft lyst til at få point.. trist