[Resolvido] Listar Arrquivos de um Diretorio

<%Dim strPath, objFSO, objFolder,objItem strPath = ".\\"Set objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))%>Conteúdo de <B><%= strPath %></B><BR><BR><TABLE BORDER="5" BORDERCOLOR="black" CELLSPACING="0" CELLPADDING="2"> <TR BGCOLOR="#006600"> <TD><FONT COLOR="#FFFFFF"><B>Arquivo:</B></FONT></TD> <TD><FONT COLOR="#FFFFFF"><B>Tamanho (bytes):</B></FONT></TD> <TD><FONT COLOR="#FFFFFF"><B>Data:</B></FONT></TD> <TD><FONT COLOR="#FFFFFF"><B>Tipo:</B></FONT></TD> </TR><%For Each objItem In objFolder.SubFolders If InStr(1, objItem, "_vti", 1) = 0 Then %> <TR BGCOLOR="#CCFFCC"> <TD ALIGN="left" ><A HREF="<%= strPath & objItem.Name %>"><%= objItem.Name %></A></TD> <TD ALIGN="right"><%= objItem.Size %></TD> <TD ALIGN="left" ><%= objItem.DateCreated %></TD> <TD ALIGN="left" ><%= objItem.Type %></TD> </TR> <% End IfNextFor Each objItem In objFolder.Files%> <TR BGCOLOR="#CCFFCC"> <TD ALIGN="left" ><A HREF="<%= strPath & objItem.Name %>"><%= objItem.Name %></A></TD> <TD ALIGN="right"><%= objItem.Size %></TD> <TD ALIGN="left" ><%= objItem.DateCreated %></TD> <TD ALIGN="left" ><%= objItem.Type %></TD> </TR><%NextSet objItem = NothingSet objFolder = NothingSet objFSO = Nothing%>