Rutina para subir archivos

Esfinge02 · #1 (**permalink**) 04/03/2009, 20:17

hola a todo el mundo, quisiera saber si alguin conose una manera de subir archivos a una paguina y por terior mente mostrarlos para su descarga, no se si importe pero solo voy a manejar archivos de pdf

Shiryu_Libra · #2 (**permalink**) 04/03/2009, 23:30

dentro del foro se han tomado mucho el tema, pero estan seccionados en diferentes post

subir ficheros
por ejemplo

forzar ficheros... aqui tammander, nos da un buen ejemplo

comenta si era lo que ocupabas...

Esfinge02 · #3 (**permalink**) 05/03/2009, 11:26

sep ya lo cheque y me an surgido algunas dudas pero ya estoy en ello

Esfinge02 · #4 (**permalink**) 05/03/2009, 19:35

hola si bien es cierto que esta el codigo para subir archivos, el cual funciona de maravilla, a bra otro que te muestre los archivo que as subido, en una pagina

Shiryu_Libra · #5 (**permalink**) 05/03/2009, 19:44

aqui ya ocuparias FSO, para la lectura de la carpeta.... mmm...

dejame chekar si encuentro el codigo o el post donde hablamos de eso

Esfinge02 · #6 (**permalink**) 05/03/2009, 20:18

oko muchas gracias

Shiryu_Libra · #7 (**permalink**) 05/03/2009, 20:27

pues, se que esta ya en el foro...

pero no recuerdo...

pero era algo similar a esto

Código ASP:

Ver original<body>
<%
pa="http://"&_
Request.ServerVariables("SERVER_NAME")&"/pruebas/"
response.Write pa
%>
Mostrar la ruta:<input type="text" id="mostrar" size="150" />
<table><tr><td>
<%
response.Buffer=true
'obtengo el directorio físico de la carpeta donde está este script
nombre_carpeta = Server.MapPath(".") & "\"
response.write "<h1>-" & nombre_carpeta & "</h1>"
 
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
 
'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
 
'traigo los archivos de la carpeta
Set archivos = carpeta.Files
'para cada archivo, muestro su nombre.
response.Write "<h2>ROOT</h2>"
for each nombre_archivo in archivos
    tyfile = fso.GetExtensionName(nombre_archivo.name)
    response.Write "<br>" & tyfile
    response.Write " - " & nombre_archivo.name
next%>
</body>