Hej!

Är det någon som har koll på hur jag skriver en loop som sumerar storlekarna för alla filer i katalogen x och ev. underkataloger till denna.

Tacksam för hjälp,
Johan

Varför loopa, duger det inte att bara kolla storleken på mappen?
<code>
Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
s = f.size
ShowFolderSize = s
Set f = Nothing
Set fso = Nothing
End Function

'ex
storlek=ShowFolderSize(server.mappath("/"))
</code>