Rotina para listar os arquivos de um diretório

<% 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 If Next For 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> <% Next Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing %>

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP;
Data.........: 11/04/2002 15:48:15
Visualizado..: 549 vezes
Fonte........: AdeN Knowledge DB