[Iska]

1. «On Error Resume Next» — не самый правильный выбор. Обработки ошибок я нигде в коде не увидел. Тогда — смысл? Или выкиньте, или уж обрабатывайте возможные ошибки.

2. Например добавьте в код простейшее:

Код:

…
<%
   ''''''''''''''''''''''''''''''''''''''''
   ' output the file list
   ''''''''''''''''''''''''''''''''''''''''

   Set objCollection = objFolder.Files

   For Each objItem in objCollection
      strName = objItem.Name
      
      Select Case LCase(strName)
          Case "default.asp", "web.config"
              ' Nothing to do
          Case Else
              ' Здесь Ваш код по выводу файлов
                strFile = Server.HTMLEncode(Lcase(strName))
          
                intSizeB = objItem.Size
                intSizeK = Int((intSizeB/1024) + .5)
                intSizeM = Int((intSizeB/1024/1024) + .5)
                … и так далее
      End Select
…