/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Ledigt Plads
Fra : Keld Fuglsang


Dato : 27-04-01 20:15

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



 
 
Martin Kruse (27-04-2001)
Kommentar
Fra : Martin Kruse


Dato : 27-04-01 21:25

"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



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408875
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste