Upload y download de archivos del servidor

[Benjact]

Tengo una pequeña aplicación con un asp.Upload para que puedan subir archivos al servidor que funciona bien. ¿Sería posible desde la propia página ver el listado de archivos subidos? Y no solo en esa sesión, no los que acaben de subir, sino también los que están subidos.

[Myakire]

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:

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

[Benjact]

Muchisimas gracias.
Con unos ajustes ya lo he conseguido.
La verdad es que no había mirado mucho por el foro si ya estaba contestado

[Myakire]

No te preocupes, para eso esta el foro, solo no te olvides de revisar primero las respuestan anteriores, a veces es mucho más rápido que postear un nuevo mensaje.

Suerte amigo Benjact