Räkna filer med FSO

Hejsan!

Jag hittade den här koden här i forumet och undrar om någon kan hjälpa mig med att utöka den.
Som det ser ut nu så listar den alla kataloger, filer och underkataloger... man kan också klicka på katalogerna så man kommer till underkatalogen. Den visar också storleken på mappen/filen, när den skapades och när den senast blev läst.

Nu vill jag också lista hur många filer det finns i katalogerna.

Såhär ser koden ut just nu:

<%

if request.querystring("dir") = "" then
	strPath2 = "files"
else
strPath2 = strPath2 & request.querystring("dir")
end if

'On Error Resume Next
dim objFSO2,objFolder2,objFile2, strPath2

set objFSO2 = Server.CreateObject("Scripting.FileSystemObject")
set objFolder2 = objFSO2.GetFolder(server.mappath(strPath2))

function getFileSize(int)
	getFileSize = round(int/1024,0)
end function
%>

<table border="0">
<tr>
	<td>Innehåll i <%=strPath2%></td>
</tr>
<tr>
	<td>
	
	<table width="100%" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td>&nbsp;</td>
		<td width="140"><b>Katalognamn</b></td>
		<td width="80"><b>Storlek</b></td>
		<td width="100"><b>Skapad</b></td>
		<td width="100"><b>Senast läst</b></td>
	</tr>
	<tr>
		<td height="5" colspan="5"></td>
	</tr>
	<tr>
		<td width="15">«</td>
		<td colspan="4"><a href="<%=request.servervariables("SCRIPT_NAME")%>?dir=<%=objFSO2.GetParentFolderName(strPath2)%>">Bakåt i strukturen</a></td>
	</tr>
	<tr>
		<td height="5" colspan="5"></td>
	</tr>
	<% for each objFile2 in objFolder2.SubFolders	%>
	<tr>
		<td>&nbsp;</td>
		<td><a href="<%=request.servervariables("SCRIPT_NAME")%>?dir=<%=strPath2%>/<%=objFile2.Name%>"><%=objFile2.Name%></a></td>
		<td><%=getFileSize(objFile2.Size)%> kB</td>
		<td><%=Left(objFile2.DateCreated,10)%></td>
		<td><%=Left(objFile2.DateLastAccessed,10)%></td>
	</tr>
	<% next %>
	<% for each objFile2 in objFolder2.Files	%>
	<tr>
		<td>&nbsp;</td>
		<td><a href="<%=strPath2%>/<%=objFile2.Name%>"><%=objFile2.Name%></a></td>
		<td><%=getFileSize(objFile2.Size)%> kB</td>
		<td><%=Left(objFile2.DateCreated,10)%></td>
		<td><%=Left(objFile2.DateLastAccessed,10)%></td>
	</tr>
	<% next %>
	<tr>
		<td colspan="5">&nbsp;</td>
	</tr>
	</table>
	
	</td>
</tr>
<tr>
	<td height="10"></td>
</tr>
<tr>
	<td>&nbsp;</td>
</tr>
<tr>
	<td colspan="4" height="3"></td>
</tr>
</table>

<%
set objFolder2 = nothing
set objFSO2 = nothing
%>

Hoppas att någon kan hjälpa mig med detta!

MVH