07. februar 2005 - 20:53Der er
9 kommentarer og 1 løsning
Plads tilbage på drev?
Hej Alle!
Jeg kunne godt tænke mig at vide, hvor mange byte der er tilbage på mig drev.
Jeg har fundet følgende script, men kan desværre ikke få det til at virke.. Er der nogle, der ved hvad jeg gør galt?
Dim fs, d, n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("d:\web\domæne.dk") n = "Drive: " & d n = n & "<br />Free Space in bytes: " & d.FreeSpace Response.Write(n) set d=nothing set fs=nothing
<% Dim fs, d Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("d:\") Response.Write("Free Space on " & d & " in bytes: " & d.FreeSpace) set d=nothing set fs=nothing %>
Ja, og underligt det ikke virker hos mig, kan hellere ikke helt forstå det. Men når jeg kun kører d:\ får jeg method not allow. Ikke min egen server :) Men Wannafinds :)
Men jeg får følgende fejl Eagleeye..
Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument /test.asp, line 4
Den bliver ved at med at komme med samme fejl meddelelse.
Jah Arne, du har helt sikkert nok ret, jeg havde imidlertid set, at de benytter samme metode længere oppe i deres webhotel reseller del, men de har nok sat begrænsning på længere nede i diverse undermapper.
arh du bruger GetDriver så skal det være D:\ eller c:\. Når det er en folder skal du bruger GetFolder: Der er så en property som hedder size og ikke freespace.
Så kan du lave det sådan her så den udregner hvor meget der er fra eks med 100Mb plads:
Dim fs, d, n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetFolder(server.mappath("/")) n = "Drive: " & d n = n & "<br />Used bytes: " & d.Size n = n & "<br />Calculated free space in bytes: " & (100*1024*1024-d.Size) Response.Write(n) set d=nothing set fs=nothing
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
