FSO lento a caricare la pagina...

[Mr.UltraDev]

ho provato diversi modo tra cui:

dim contatore
For contatore = 0 To 10
  For Each File In objFolder.Files

    'hide any file that begins with the character to exclude
    If (Left(File.Name, 1)) <> Exclude Then 
      rsFSO.AddNew
      rsFSO("Name") = File.Name
      rsFSO("Type") = File.Type
      rsFSO("DateCreated") = File.DateCreated
      rsFSO("DateLastAccessed") = File.DateLastAccessed
      rsFSO("DateLastModified") = File.DateLastModified
      rsFSO("Size") = File.Size
      rsFSO.Update
    End If
next
  Next 

ma nulla!

mi sento alquanto...