Antal MB på webhotel!

lytter med ! ;)

Er det ikek bare:

<%
filespec = ("d:\home\www\")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)

FolderSize = f.size * 1025 ' OBS! i bytes
Response.write f.size
%>

//>Rune

Hov..

<%
filespec = ("d:\home\www\")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)

FolderSize = f.size * 1024 ' OBS! i bytes
Response.write f.size
%>

//>Rune

Er det ikke 1024 og ikke 1025 der skal ganges med.....

/Tubber

Hov du havde rettet det :O)

Men der er vel også en anden fejl.....for at få byte i mb skal man da dividere altså:

<%
filespec = ("d:\home\www\")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)

FolderSize = f.size / 1024 ' OBS! i bytes
Response.write f.size
%>

Agh, det er rigtig tubber, det skulle ha' været dividere, sorry, min fejl!

//>Rune

Det kan jo smutte :O)

Så er det da godt der er flere der kan hjælpe og kommentarer så man får rettet de små smuttere :O)

Underligt! Det er nok rigtigt nok men den eneste forskel jeg får er:

Uden (/ 1024) 9928770
Med (/ 1024)  9928762

Skal der evt. noget ekstra kode til?

Det er nok rigtigt men af en eller anden grund regner den det ikke rigtigt ud!

jeg får 9928754 når jeg ikke bruger (/1024)
Når jeg bruger (/1024) får jeg 9928761

Ret underligt! skal der evt. noget mere kode til?

Hvis jeg istedet sætter koden ind under:

<%
filespec = ("d:\home\www\")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)

FolderSize = f.size
Response.write f.size / 1024

%>

får jeg 9696,056640625 hvilket også er lidt meget da jeg har 25 mb ialt!

Det er altså rigtig nok, har lige tjekket dette:


http://www.eksperten.dk/spm/418272


Så filen må altså fylde mindre end 1024 kb!

//>Rune

Jeg fandt ud af det! Der går 1024 KB til en mb og der går 1024000 bytes til en mb

Men tusinde tak for hjælpen! Hvis pointsene skal deles skal jeg lige have et svar fra tubber! :D

<%
filespec = ("d:\home\www\")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)

FolderSize = f.size
Response.write f.size / 1024000

%>

Ahh fairn ok.... :)
Thx 4 Poinz

//>Rune

Den lille rettelse er ikke points værd, bare glad for at lige kunne hjælpe......

Andersasp
det er på sin vis korrekt,
MEN...
hvis du skal gange / dividére med 1024 fra byte til kb,
så skal du gøre det samme fra kb til Mb
dvs

<%
filespec = ("d:\home\www\")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)

FolderSize = f.size
Response.write f.size / (1024*1024)

%>

ell færdig udregnet så den ikke skal beregne mere en nødvendigt

<%
filespec = ("d:\home\www\")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)

FolderSize = f.size
Response.write f.size / 1048576

%>
:)

MVH Mcnovy

Jo faktisk korekt, og skal vi ha betegnelserne helt på plads så.....

så er det vi regner KB - MB og ikke Kb og Mb, da b=bit og B=Byte....og K=Kilo M=Mega.....
Der går jo 8 bit på 1 Byte så skal man fra b->MB:
1MB = 1024KB = 1048576B = 8388608b <-> 1*1024*1024*8

Jeg ved godt vi alle ved hvad vi snakker om, men nu er det på plads det med store og små bogstaver.....

/Tubber

MEN, kilo er LILLE k.
bare saa vi kan traede i det.! :)