Ti sei perso un pezzo, avevo detto SOLO SE numfile = 0!!!!!!


codice:
numfile = 0
For each directoryfile in objFolder.files 

if numfile = 0 then
'Intestazioni colonne

'***************************

'contenuto file

response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Size & "</td>")
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Type & "</td>") 
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DateCreated & "</td>") 
response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DatelastModified & "</td>")
'response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.DatelastAccessed & "</td>") 
'response.write ("<td><font size=""1"" face=""Verdana"">" & directoryfile.Attributes & "</td></tr>")

end if
if directoryfile.name <> "Thumbs.db" and directoryfile.name <> "default.htm" then
numfile = (numfile + 1)

end if
Next 
response.Write ("[b]<font size=""1"" face=""Verdana"">Numero di file presenti : " & numfile) 
end if
 
Set objFso = Nothing

Roby