Vis antal filer i mappen + Vis størrelse på filer

egentligt er spørgsmålet en fortsættelse på et svar Som eagleeye kom med i et tidligere spørgsmål:

jeg vil gerne i følgende scripts få vist hvor mange filer der ligger i undermapperne,

<%
  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
%>


Desuden vist størrelsen på filerne i dette script :

<%
'Response.Write ShowSub  & "<br>"
'Response.Write strPhysicalPath
'Response.End

  SiteName = request.servervariables("script_name")
  strPhysicalPath = Server.MapPath(ShowSub)

    If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
    For Each objFileItem in objFolderContents
      Response.write "<tr><td>"
      if InStr(1,"jpg,bmp,gif", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then
          Response.Write "<a href=""" & ShowSub & "/" & objFileItem.Name &""">" & objFileItem.Name  & "</a>"
      End if   
      Response.write "</td></tr>"
    Next
    Set objFSO = Nothing
  End if
%>