Størrelse på mere end en Folder

Følgende script giver Byte-størrelsen på en bestemt mappe

<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test")
Response.Write("The size of the folder test is: ")
Response.Write(fo.Size & " bytes.")
set fo=nothing
set fs=nothing
%>

Mit script ser sådan her ud..

<%
    sti = "Cars"
    ShowSub = sti & request("ShowSub")
    ShowSubLink = request("ShowSub")
    strPathInfo = ShowSub
    strPhysicalPath = Server.MapPath(strPathInfo)

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
   
    For each Folder in objFolder.SubFolders
   
        If Left(Folder.Name,1)<>"_" Then
            Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
            Response.Write(Replace(Folder.Name, " ", "%20"))
            response.write """>"
            Response.Write Folder.Name
            Response.Write "<br>"
        End if
    Next
   
    Set objFSO = Nothing

%>

hvordan får jeg vist mappens størrelse i denne sætning :

Response.Write Folder.Name "-" mappesørrelse

som befinder sig inden i For løkken...