Ver Mensaje Individual
  #2 (permalink)  
Antiguo 01/02/2006, 08:28
Avatar de Myakire
Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
pues claro amigo, es sencillo, con FSO hay que barrer el directorio donde subes los archivos, en la web y en el foro hay muchos ejemplos y artículos, pero te dejo un copy-paste de un ejemplo:

Cita:
....
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
PathInicial = "C:\Inetpub\wwwroot\xxx\yyy\"
NomFolder = objFSO.BuildPath(PathInicial, "Formatos")

Set objFolder = objFSO.GetFolder(NomFolder)
For Each objItem In objFolder.Files
<TR BGCOLOR="#CCFFCC" class="TextoLista1">
<td><%=Cnt%></td>
<TD ALIGN="left" width="5"><input type="checkbox" value="<%=objItem.Name%>" name="ArchivosBorrar"></td>
<TD ALIGN="left" ><A HREF="<%= "..\formatos\"& objItem.Name %>" target="_blank"><%= objItem.Name %></A></TD>
<TD ALIGN="right"><%= objItem.Size %> bytes</TD>
<TD ALIGN="left" ><%= objItem.DateCreated %></TD>
<TD ALIGN="left" ><%= objItem.Type %></TD>
</TR>
<% Cnt=Cnt+1
Next 'objItem
%>
<tr class="text"><td colspan="6" align="right"><B>ARCHIVOS TOTALES: </B> <%=Cnt-1%></td>
</table><%
Set objFSO = Nothing
Set objItem = Nothing
Set objFolder = Nothing
Saludos