Antal MB tilbage på webhotel!

prøv kig på dem her
http://www.html.dk/dokumentation/vbscript/HTML/vsproavailablespace.htm
http://www.html.dk/dokumentation/vbscript/HTML/vsprofreespace.htm

og selvfølgelig også
http://www.html.dk/dokumentation/vbscript/HTML/vsprototalsize.htm

jeg har ikke selv testet det
Men spørgsmålet er selvfølgelig om de returnerer hvor meget plads der er tilbage på drevet for alle på webhotellet, eller om den regner det ud pr bruger
Normalt ligger ens sider jo i ens egen mappe på harddisken
Så det er vel rettere den mappe du skal finde størrelsen på frem for hele harddisken?

Tak for det meget hurtige svar!!  jeg har dog kigget på noget ligende før, men kan kan desværre ikke helt forstå det!!

Jeg har prøvet dette men det giver en fejl:

    filespec = (clientzoosettings("Sdirectpath") & "upload/")
    Dim fso, f, d, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(filespec)
   
    Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
      s = "Drive " & d.DriveLetter & ":"
      s = s & vbCrLf
      s = s & "Total Size: " & FormatNumber(d.TotalSize/1024, 0) & " Kbytes"
      s = s & vbCrLf
      s = s & "Available: " & FormatNumber(d.AvailableSpace/1024, 0) & " Kbytes"
      ShowSpaceInfo = s

    FolderSize         = f.size  / 1048576
    whatarethelimit    = 2000
    whatprocent     = (FolderSize / whatarethelimit)*100
    whatprocent        = whatprocent * 1.4

Min fejl:

Microsoft VBScript runtime error '800a0046'

Permission denied

C:\WEBS\TALKACTIVE\WEB32640\domainname.DK\ADMIN\SPACE\../../menu/include_menu_admin.asp, line 43

hvilken linje er 43?

men altså fejlen fortæller jo hvad der er galt
Det må være fordi du spørger til en mappe/folder/drev hvor du ikke har rettighedder

s = s & "Total Size: " & FormatNumber(d.TotalSize/1024, 0) & " Kbytes"

Jeg skal helst spørge til denne mappe (clientzoosettings("Sdirectpath") & "upload/")

nu ved jeg så ikke lige hvad clientzoosettings er
Men siden fejlen ikke opstår før så har du rettighedder til d.DriveLetter men ikke d.TotalSize åbenbart
Kan du få d.AvailSpace hvis du fjerner linjen med d.TotalSize?

Nej desværre den kommer med samme fejl med nedenstående:

    filespec = (clientzoosettings("Sdirectpath") & "upload/")
    Dim fso, f, d, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(filespec)
   
    Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
      s = "Drive " & d.DriveLetter & ":"
      s = s & vbCrLf
      s = s & "Available: " & FormatNumber(d.AvailableSpace/1024, 0) & " Kbytes"
      ShowSpaceInfo = s

får du overhovedet fat i d.DriveLetter hvis du nøjes med det alene?
For ellers kunne jeg tro din filespec måske var forkert
Den kunne du jo prøve udskrive hvis det er

vent nu lidt
Hvor definerer du drvpath?

Nej den skriver heller ikke hvilket drive det er, men den kommer dog heller ikke med nogle fejl!!

filespec virker som den skal da scriptet virkede helt fint da man selv skulle indsætte max størrelse.. Det ville bare være helt optimalt hvis den kunne gøre det automatisk!!!

og linjen
ShowSpaceInfo = s
hmm ligner du har lavet lidt copy paste fejl

Det tror jeg faktisk ikke jeg har gjort dette er hele mit script:

    filespec = (clientzoosettings("Sdirectpath") & "upload/")
    Dim fso, f, d, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(filespec)
   
    Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
      s = "Drive " & d.DriveLetter & ":"
      s = s & vbCrLf
      s = s & "Available: " & FormatNumber(d.AvailableSpace/1024, 0) & " Kbytes"
      ShowSpaceInfo = s

    FolderSize        = f.size  / 1048576
    whatarethelimit    = 2000
    whatprocent    = (FolderSize / whatarethelimit)*100
    whatprocent        = whatprocent * 1.4

det bliver du jo nød til
---
filespec = (clientzoosettings("Sdirectpath") & "upload/")
Dim fso, f, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)

Set d = fso.GetDrive("C:")
s = "Drive " & d.DriveLetter & ":"
s = s & vbCrLf
s = s & "Available: " & FormatNumber(d.AvailableSpace/1024, 0) & " Kbytes"
response.write "S er: "&s

FolderSize        = f.size  / 1048576
whatarethelimit    = 2000
whatprocent    = (FolderSize / whatarethelimit)*100
whatprocent        = whatprocent * 1.4

showspaceinfo må være kommet fra et af eksemplerne og det er overflødigt
Men prøv med C: og se om du så kan få totalsize med mere

Ok, nu får jeg "Permission denied " i linien:

s = s & "Available: " & FormatNumber(d.AvailableSpace/1024, 0) & " Kbytes"

kan man starte fra server.mappath eller sådan noget - ligger på en delt webserver!!

jamen altså hvad er det du vil
1) vil du have fat i et drev
2) vil du have fat i en folder

1) her kan du ikke bruge server.mappath da det ikke giver nogen mening, drevet er jo blot c: eller d: osv
2) her kan du selvfølgelig benytte server.mappath, men jeg kan ikke forestille mig at du kan benytte metoden GetDrive på en folder, da den jo ikke er et drev

og dog
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsoriFileSystemObjectMethods.asp
gør mig i tvivl
prøv ad :o)

Ok jeg prøver - men tak for hjælpen for denne gang!!