Samlet størrelse på mappe

Jeg bruger dette script

<%=request.servervariables("SERVER_NAME")%>&nbsp;&nbsp;&nbsp;
<%
Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder(Server.MapPath("."))
If objFolder.Size < 1024 Then
Response.write objFolder.Size & " bytes&nbsp;&nbsp;&nbsp;"
ElseIf objFolder.Size < 1024*1024 Then
Response.write Round(objFolder.Size/1024,2) & " Kbytes"
ElseIf objFolder.Size < 1024*1024*1024 Then
Response.write Round(objFolder.Size/1024/1024,2) & " Mbytes"
Else
Response.write Round(objFolder.Size/1024/1024/1024,2) & " Gbytes"
End If

%>

Hvis det så er en bestemt mappe skrives der

Set objFolder = objFSO.GetFolder(Server.MapPath("/images"))

istedet for

Set objFolder = objFSO.GetFolder(Server.MapPath("."))

kan man også gå en mappe tilbage ../?

Ja det burde så være
Set objFolder = objFSO.GetFolder(Server.MapPath("../"))
Jeg har dog ikke prøvet dette

kan det passe at man ikke ka kører den i localhost?

Har prøvet det og det virker så hvis du vil teste en mappe tilbage
Set objFolder = objFSO.GetFolder(Server.MapPath("../images"))

min den går ned, er der nogle specielle indstillinger eller komponenter der skal være installeret før det fungere?

Hvad vil du teste hvor meget hele hjemmesiden fylder??
Så skal det første jeg skrev stå i roden af localhost for at vise hvad den fylder incl. alle under mapper

Du har som hovedregel ikke tilladelse til at gå længere tilbage på et webhotel

nej, jeg vil bare prøve at se hvor meget mappen fylder på min computer.

Er det derfor den står og tænker og tænker, tæller den alle mapper på computeren?

Nej ingen komponenter

Ok, nu har jeg valgt mappen (images) men den står stadig bare og tænker

jeg har bare sat det direkte ind som ovenfor, skal det placeres et specielt sted eller lignende?

Hvordan kalder du scriptet

jeg har blot sat det her ind:

<%=request.servervariables("SERVER_NAME")%>&nbsp;&nbsp;&nbsp;
<%
Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder(Server.MapPath("."))
If objFolder.Size < 1024 Then
Response.write objFolder.Size & " bytes&nbsp;&nbsp;&nbsp;"
ElseIf objFolder.Size < 1024*1024 Then
Response.write Round(objFolder.Size/1024,2) & " Kbytes"
ElseIf objFolder.Size < 1024*1024*1024 Then
Response.write Round(objFolder.Size/1024/1024,2) & " Mbytes"
Else
Response.write Round(objFolder.Size/1024/1024/1024,2) & " Gbytes"
End If

%>

Det er det eneste, hvad skal jeg gøre?

Og resten af filen er tom??

Du kan ligge den i en tom asp-fil

og skrive http://localhost/filnavn.asp

det sker ikke noget den står bare og tænker og til sidst går localhost ned :-(

Åbner siden http://localhost/test.asp...........

kan det være mine iis instillinger?

skal der stå noget i SERVER_NAME?

Nej ikke i SERVER_NAME det bliver automatisk localhost

Ang. indstillinger, så nej hvis ikke der er pillet ved dem

det har jeg ikke, kan du køre det lokalt på computeren?

Ja

Hvis den står og "tænker" kan det være fordi du har installeret Norton Antivirus.
Du skal ind i Norton og stå "Active scripting" fra, det kan være nødvendig at genstare PC'en før det slået helt fra.

OK det hjalp med Norton slået fra, men den kommer med følgende fejl:

Fejltype:
Der opstod en Microsoft JScript-kompileringsfejl (0x800A03EC)
Tegnet ';' var ventet
/webvizion/Expositus/WWW/test.asp, line 12, column 4
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Linie 12 er:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

nu virker det. Kanon, tak for hjælpen eagleeye, men er det iorden jeg giver cpccorp pointene idet han kom med scriptet. ellers smider I begge et svar også kan I dele.

Her et svar fra mig.

Lad bare eagleeye få det hele, han har brug for det

OK - men tak for hjælpen cpccorp