Hjælp til at finde antal mb der er brugt..

har du ikke et web svarende til det, der ligger online ? - der må du da kunne e hvor meget dit web fylder

Prøv evt med denne funktion:

<html>
<head>
<%
Function ShowFreeSpace(drvPath)
  Dim fso, d, s
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set d = fso.GetDrive(fso.GetDriveName(drvPath))
  s = \"Drive \" & UCase(drvPath) & \" - \"
  s = s & d.VolumeName  & \"<BR>\"
  s = s & \"Free Space: \" & FormatNumber(d.FreeSpace/1024, 0)
  s = s & \" Kbytes\"
  ShowFreeSpace = s
End Function
%>
</head>

<body>
<%
root_folder = Server.Mappath(\"/../\")
response.write ShowFreeSpace(root_folder)
%>
</body>
</html>

ØV, nordclc  Det var ikke det men du er inde på nåde, jeg vil gerne se hvor meget jeg plas jeg har brugt. her kan jeg kun se hvor meget der er tilbage.

Jamen så er vi da halvvejs ;o)

Nu kan du se begge:

<html>
<head>
<%
Function ShowFreeSpace(drvPath)
  Dim fso, d, s
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set d = fso.GetDrive(fso.GetDriveName(drvPath))
  s = \"Drive \" & UCase(drvPath) & \" - \"
  s = s & d.VolumeName  & \"<BR>\"
  s = s & \"Free Space: \" & FormatNumber(d.FreeSpace/1024, 0)
  s = s & \" Kbytes\"
  ShowFreeSpace = s
End Function

Function ShowTotalSpace(drvPath)
  Dim fso, d, s
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set d = fso.GetDrive(fso.GetDriveName(drvPath))
  s = \"Drive \" & UCase(drvPath) & \" - \"
  s = s & d.VolumeName  & \"<BR>\"
  s = s & \"Free Space: \" & FormatNumber(d.TotalSize/1024, 0)
  s = s & \" Kbytes\"
  ShowTotalSpace = s
End Function
%>
</head>

<body>
<%
min_folder = Server.Mappath(\"/../\")
response.write ShowFreeSpace(min_folder)
response.write ShowTotalSpace(min_folder)
%>
</body>
</html>

Kan du bruge det?

Du er mere inde på nåde men den regner af lordt til jeg har fåde en anden kode som

<%
size = 0
set fso = CreateObject(\"Scripting.FileSystemObject\")
set curfolder = fso.GetFolder(\"d:\\web\\kk-netsoft.dk\")

for each i in curfolder.SubFolders
  size = size + round(i.Size/1000000,1)
next

response.write size & \" MB\"
%>

Men den kan ikke regne som jeg gerne vil da den ikke tager det der er under med..

Da der ikke er en der har give mig det respons jeg skal bruge lukker jeg det spam..