---

Hej

når jeg sidder med dette script viser den, den ledige plads i bytes. Hvordan
laver jeg dette om til mb og evt. procent.

<%
Dim fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "Drive: " & d
n = n & "<br>Free Space in bytes: " & d.FreeSpace
Response.Write(n)
set d=nothing
set fs=nothing
%>


Mvh
Kenneth

---

"Keld Fuglsang" <keld-fuglsang@mail.dk> skrev i en meddelelse
news:9ccgbp$mpm$1@news.inet.tele.dk...
> Hej
>
> når jeg sidder med dette script viser den, den ledige plads i bytes.
Hvordan
> laver jeg dette om til mb og evt. procent.
>
> <%
> Dim fs, d, n
> Set fs=Server.CreateObject("Scripting.FileSystemObject")
> Set d=fs.GetDrive("c:")
> n = "Drive: " & d
> n = n & "<br>Free Space in bytes: " & d.FreeSpace
> Response.Write(n)
> set d=nothing
> set fs=nothing
> %>

Burde det ikke være noget lignende:

kb = d.FreeSpace / 1024
mb = kb / 1024

Er ikke helt sikker på om tallene er sådan...
Men det er vist noget lignende.

hvis du så vil have det til procent er det noget med:

decimaltal = d.FreeSpace / d.Space(ved ikke om det hedder det)
procent = decimaltal * 100

Det kan godt være det ikke er 100 % (Haha) korrekt, men det er i hvert fald
derhen af...

MK