Script em ASP para listagem de arquivos

< %
Option Explicit
Response.Buffer = true

Dim acao, arquivo, mensagem
Dim objFSO, Diretorio, arquivos
Dim i, color, arr_data

acao    = UCase(Trim(Request("acao")))
arquivo = Trim(Request("arquivo"))

if acao = "EXCLUIR" then
    set objFSO = Server.CreateObject("scripting.filesystemobject")
   
    if objFSO.FileExists(Server.MapPath(".\") & "\" & arquivo) then
        objFSO.DeleteFile(Server.MapPath(".\") & "\" & arquivo)
        mensagem = "Arquivo """ & Server.MapPath(".\") & "\" & arquivo & """excluído com sucesso!"
    else
      mensagem = "O arquivo especificado para exclusão não existe!"
    end if
   
    set objFSO = nothing
end if
%>

<table id="main" cellspacing="0" cellpadding="5" width="728" align="center">
  <thead bgcolor="#E6E6E6">
    <th height="25" class="cabecalho" align="left">Nome</th>
    <th height="25" class="cabecalho" align="right">Tamanho</th>
      <th height="25" class="cabecalho" align="left">Tipo</th>
    <th height="25" class="cabecalho" align="left">Data de Modificação</th>
    <th height="25" class="cabecalho" align="center">Ação</th>
  < %

set objFSO = Server.CreateObject("scripting.filesystemobject")
set Diretorio = objFSO.GetFolder(Server.MapPath(".\"))
set arquivos  = Diretorio.files
%>
  < %
    if Diretorio.Size > 0 then
      i = 0
      color = ""
      for each arquivo in arquivos
        i = i + 1
        if i mod 2 = 0 then
          color = "#F6F6F6"
        else
          color = "#FFFFFF"
        end if
        arr_data = split(arquivo.DateCreated," ")
        if Right(arquivo.Name,4) <> ".asp" then
          Response.Write "<tr bgcolor=""" & color & """>" & _
                "<td align=""left"">" & arquivo.Name & "</td>"& _
                "<td align=""right"">" & FormatNumber(arquivo.Size / 1024 , 2)& " KB </td>" & _
                "<td align=""left"">" & arquivo.Type & "</td>"& _
                "<td align=""left"">" & arr_data(0) & " " & arr_data(1) & "</td>"& _
                "<td align=""center""><input type=""button"" onclick=""javascript:download('"& arquivo.Name &"');"" value=""Download""/></td>" &_
                "</tr>"
        else
          i = i + 1
        end if
    next
    set objFSO = nothing
    else
    %>
    <tr>
        <td height="50" colspan="5" align="center" bgcolor="#FFFFFF" style="border-bottom:#FFCC00 2px solid;"><img src="image/alerta_32x32.png" width="32" height="32" border="0" align="middle"/>&nbsp;&nbsp;Não existem arquivos no diretório&nbsp;"<b>< %=Server.MapPath(".\")%></b>"!</td>
    </tr>
    < %
    end if
  %>
</thead></table>