Site size

<%
Dim FSO, Folder, SubFolders, FolderContents, File, PhysicalPath

PhysicalPath=Server.MapPath(".")&"\"
response.write "Indhold i: "  & PhysicalPath & "<br>"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(PhysicalPath)
set SubFolders = Folder.SubFolders
Set FolderContents = Folder.Files

For Each File in FolderContents
  Response.Write file.name & " "&CSTR(CLNG((file.size/1024)))&"kb<br />"
  total = total + CLNG((file.size/1024))
Next

response.write "<b>ialt : " & cstr(total) &"kb<br /></b>"
Set FSO = Nothing
%>

Tager den sub-sub folders?

nej men det kan laves.

//akj

Den kommer heller ikke ned i subfolders i første niveau, selvom det ser lovende ud! Bliver det ikke lidt kaotisk at få den ned i fx. 8. niveau sub-dir?

jo :-)

det her er nok lettere:
<%
Dim FSO, Folder, SubFolders, FolderContents, File, PhysicalPath

PhysicalPath=Server.MapPath(".")&"\"
response.write "indhold i: "  & PhysicalPath & "<br>"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(PhysicalPath)
set SubFolders = Folder.SubFolders


set fo=fso.GetFolder(PhysicalPath)

response.write fo.size &" bytes"

%>

//akj

Det funkede fint