størrelse af mappe med fso

Denne funktion skulle gøre det:

Function ShowFolderSize(FunkFolder)
  Dim fso, f, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(FunkFolder)
  ShowFolderSize = f.size
End Function

response.write ShowFolderSize(server.mapPath("EnMappe"))

Kan dette lade sig gøre?
response.write ShowFolderSize(server.mapPath("/img/"))

Hvordan kan jeg få det vist i mb ?

divider med 1024 og du har det i KB, divider med 1024 igen og du har det i Mb, også vil du nok også gerne formatere tallet:

response.write formatnumber((ShowFolderSize(server.mapPath("/img/"))/1024)/1024,3)

Kewl