Então amigo eu só tenho um código que visualiza os arquivos só que ele não soma a quantidade de arquivos na pasta determinada... <%
'Declara as variáveis a serem usadas
Dim Local, Folder, File, ObjFS, objRootFolder
'Especifica o endereço do conteúdo a ser exibido
Local = "d:\web\localuser\photoprintdigital\www\profissional\joao\10x15\fotos\"
'Cria o objeto FileSystemObject
Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = ObjFS.GetFolder(Local)
Response.Write "<table border='1' bordercolor='#000000' cellpadding=2 cellspacing=0 width='100%' style='font-family: Tahoma, Arial; font-size: 11px;'>"
Response.Write " <tr style='background: #679FDB'>"
Response.Write " <td><b>Nome</b></td>"
Response.Write " <td><b>Tipo</b></td>"
Response.Write " <td><b>Tamanho em bytes</b></td>"
Response.Write " <td><b>Data e horário de envio</b></td>"
Response.Write " </tr>"
'Exibe pastas encontradas
For Each Folder in objFolder.Subfolders
Response.Write " <tr>"
Response.Write " <td>" & Folder.Name & "</td>"
Response.Write " <td>" & Folder.Type & "</td>"
Response.Write " <td align=right>" & Folder.Size & " </td>"
Response.Write " <td>" & Folder.DateLastModified & "</td>"
Response.Write " </tr>"
Next
'Exibe arquivos encontrados
For Each File in objFolder.files
Response.Write " <tr>"
Response.Write " <td>" & File.Name & "</td>"
Response.Write " <td>" & File.Type & "</td>"
Response.Write " <td align=right>" & File.Size & " </td>"
Response.Write " <td>" & File.DateLastModified & "</td>"
Response.Write " </tr>"
Next
Response.Write "</table>"
'Elimina variáveis da memória
Set Local = Nothing
Set File = Nothing
Set objFolder = Nothing
Set Folder = Nothing
%>