[Resolvido] Listar Arrquivos de um Diretorio

[Neco 0]

<%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%>