subir varios ficheros al servidor

[xemisan]

Hola a todos y gracias de antemano por leer este mensaje.

Me gustaría saber si alguien tiene hecho o sabe de algun lugar donde pueda encontrar un ejemplo de como subir varios (en mi caso 4) ficheros al servidor usando asp.

Todo lo que he encontrado sirve solo para un único archivo y si alguien ya lo tiene hecho, mejor, para no tener que ponerme yo a hacerlo y que sirva para 4.

Espero vuestra ayuda.

Muchas gracias, Xemi.

[maestro]

No especificas que componente usas.
Si usas ASPUPLOAD en la documentacion vienen ejemplos de envio de varios ficheros al server.
¿Lo has mirado?

[xemisan]

En principio no quiero usar ningun componente externo, ¿es necesario usar alguno? Se puede hacer sin instalar nada en el servidor. En caso de que no se pueda, ¿que componente me recomiendas?

Gracias por la ayuda.

Xemi.

[angel_dope]

Muy wenas, tiene q ser obligatorio en asp?? Xq yo tengo un script sencillisimo en php con el que puedes subir los archivos que quieres, solo hay que añadir los input tipo file en el formulario y en el script modificar la ruta y ponerle cuantos archivos vas a subir. Lo dicho, muy facil de usar, yo no se nada de php y tarde medio minuto en adaptarlo a lo que queria. Si te sirve te lo puedo pasar

[juliko]

Visita esta página http://www.aspfacil.com/articulos/07092001.asp

[xemisan]

Gracias angel_dope, pero si tenía que ser en asp.
Tal vez en otra ocasión te pida tu script en php.

La dirección que ha dado juliko es perfecta.
Eso es lo que necesitaba.

Muchas gracias, una vez me más me habeis ayudado mucho.

Un saludo, Xemi.

[mmdmay]

He estado leyendo esta y otras entradas en varios foros sobre este tema, y, la verdad, soy un poco novato y me pierdo un poco. Hay un tema que necesito solucionar, se trata de que desde un SELECT MULTIPLE quiero que se puedan subir todos los ficheros escogidos de una sola vez.

El primer problema gordo con el que me encuentro es que en ese SELECT los ficheros no están identificados como "FILE", sino que lo que tenemos es su, como diríamos, "nombre completo" es decir C:\xdatos\fichero1,C\xdatos\fichero2, ...

Por otro lado, he intentado encontrar el "xelUpload.asp" y no lo consigo.

Si alguien puede echarme una mano.... pues gracias

[juliko]

al final de la siguiente página lo puedes descargar.
http://www.aspfacil.com/articulos/07092001_2.asp

[AlZuwaga]

hola mmdmay, el xElUpload lo encontrás en el enlace que juliko publicó dos mensajes arriba.
con respecto a subir todos los ficheros seleccionados mediante un select multiple, "creo" que es imposible por 2 motivos:

1- se supone que, por cuestiones de seguridad, sólo se puede subir un archivo mediante un input del tipo file ya que a estos no se le puede modificar el value.
2- nunca vi esa funcionalidad en ningún webmail ni sistema de almacenamiento de archivos como hostings gratuitos (cosa que seguro, pero seguro, ya hubiesen desarrollado de poderse)

saludos

[mmdmay]

Gracias juliko, gracias dazuaga.

Pues es una pena que no se pueda, así que buscaré otras alternativas.

Lo que realmente quiero hacer es poder ver la Foto que vamos a subir al servidor ( y había pensado en una pequeña "galería de imágenes" ) mientras se rellenan los datos del formulario (comentarios a la foto, nombre (dentro de un SELECT de nombres estandar) y algunas más.).

Precisamente en el “ONCHANGE” del SELECT colocaría el procedimiento para subir la imagen. De hecho, está todo montado, actualizando la Base de Datos y todo, solo a falta de la subida del fichero.

Así que, lo dicho, buscaré otra fórmula. Por cierto, ¿¿¿¿ podría forzar a que el

<input type="file" name="fichero">

aparezca en la página con un valor predeterminado en vez de tener que explorar con el botón de Examinar ????

[AlZuwaga]

no estoy del todo seguro, esto lo tendría que confirmar alguien que esté más puesto en javascript que yo, pero si volvés a leer el punto 1 de mi anterior mensaje, de allí se desprende que no se podría hacer eso (y reitero, por cuestiones de seguridad)

[dannym]

Hola compañero si ya tienes la rutina para sibir un archivo entonces solo duplica la rutina


YO hice algo asi (aunque me tomo 3 semanas hacerlo) y me funciono:
Estoy usando un componente gratis que se llama objUpload


ejemplo:
// Rutina para subir archivo "thefile es el nombre del archivo que viene del formulario


// subir imagen 1
objUpload.Form("thefile1").SaveFile strUploadPath,nombre_new, strFileExtensions


// subir imagen 2
objUpload.Form("thefile2").SaveFile strUploadPath,nombre_new, strFileExtensions


// subir imagen 3
objUpload.Form("thefile3").SaveFile strUploadPath,nombre_new, strFileExtensions

Eso es todo.

[mmdmay]

Bueno: aunque parece que está claro que no se puede hacer, no me voy a dar por vencido. Por si alguien quiere echar un vistazo, tengo TRES módulos preparados que se los mandaría por e-mail. Les he quitado el tratamiento de las Bases de datos (para que no estorben).

Modulo 1.- Recorre nuestro disco C: en busca de JPG,s y nos permite una selección múltiple de los que encuentra en cada directorio

Módulo 2.- Nos muestra, en pequeño todas las fotografías seleccionadas en el módulo anterior, y nos permite seleccionar una de ellas para verla en grande en el módulo 3

Módulo 3.- Vemos la foto aumentada y nos permite rellenar los datos de un pequeño formulario, entre ellos, el del nombre de la fotografía que lo escoge desde un <select>
Y que sirve como enlace para incluir el registro en la Base de Datos y, debería servir para subir la foto al servidor. (este módulo tiene su propio navegador primero, último, atrás y adelante)

La razón última de hacer esta operación lo más agradable posible es que está pensada para que la realicen los encargados de las obras, que cuando llegan a la oficina, traen muchas fotos (mas de 100 por término medio de cada obra) y tienen que escoger las 15 ó 20 que sean más representativas. (A los encargados no les gusta estar sentados en la oficina)

[Morgui]

Hola a todos, retomo este post aunque es viejo porque estoy buscando lo mismo que mmdmay. Es decir, hacer una selección múltiple de ficheros para subirlos con upload, sin tener que seleccionar cada FILE por separado.

He visto que lo llevaba bastante avanzado en su día, excepto la parte del upload y me gustaría saber si al final lo consiguió.

Agradecería mucho cualquier ayuda.

[AlZuwaga]

Morgui, te respondí en otro mensaje que no se puede (al menos estoy un 99% seguro de eso).

La única aproximación que se me ocurre (y que la estoy pensando mientras escribo, por lo que puedo estar diciendo giladas) es que los archivos a ser subidos estén comprimidos todos dentro de un mismo zip. El usuario marca una casilla llamada "¿descomprimir?", sube sólo ese zip y, como fue marcada la casilla, mediante un componente descomprimís el contenido de ese archivo comprimido en la carpeta destino. Finalmente, eliminás el zip subido por el usuario. La "cagada" es que necesitás si o si tener instalado el componente (por ejemplo "ASP Zip" http://www.softcomplex.com/) que es de pago y no todos los servidores te permiten instalar componentes.

Saludos

[Morgui]

Gracias de nuevo Al Zuwaga, ya sé que me respondiste, y te lo agradezco mucho, pero buscando encontré este post y pensé que quizas habían llegado a alguna conclusión nueva y no la habían publicado.

De todas formas ahora ando buscando como hacerlo con ActiveX, que debe haber unos cuantos que hacen esto. Pero con mi pésimo inglés no es tarea fácil.

Lo del archivo zip, creo que no me sirve por la estructura que ya tengo montada, ya que al estar las fotos asociadas a un registro, y no haber un nº fijo de fotos es bastante complejo de adaptar(tampoco lo he estudiado de forma profunda), además de que es de pago...

Gracias igualmente, saludos

[Trulala de cordoba]

Hola amigo:
Acá te pego el código que deje en un post. Si quieres poder subir de 15 archivos solo debes agregar 15 cajas de texto. Espero te sirva.
Saludos.





<html>

<head>
<title>Cargador de archivos</title>
</head>

<body style="font-family: Arial; font-size: 9pt">

<p align="center"><b><font size="3">Cargador de archivos</font></b></p>


<%@LANGUAGE="VBSCRIPT"%> <%response.buffer=true
Func = Request("Func")
if isempty(Func) Then
Func = 1
End if
Select Case Func
Case 1
%>
<table width="360" border="0" align="center">
<tr>
<td>
<div align="center">
Selecciona un archivo para subir.
</div>
</td>
</tr>
</table>
<form enctype="multipart/form-data" action="tmp.asp?func=2" method="POST" id="form1" name="form1">
<table align="center">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td><font color="#330066" size="2">Pulsa en el botón examinar y elige el archivo
de tu ordenador. <br>
Se cargará en el directorio actual.<br>
<br>
</font></td>
</tr>
<tr>
<td><font color="#330066" size="2">Luego pulsa el botón subir.<br>
<br>
</font></td>
</tr>
<tr>
<td><strong><font color="#330066" size="2">Nombre del archivo...</font></strong></td>
</tr>
<tr>
<td><p><font size="2">
<input name="File1" size="30" type="file">
</font></p>
<p><font size="2">
<input name="File12" size="30" type="file">
</font></p>
<p><font size="2">
<input name="File13" size="30" type="file">
</font></p></td>
</tr>
<tr>
<td align="left"><input type="submit" value="Subir"> <br>
<br>
</td>
</tr>
<tr>
<td><font color="#330066" size="2">NOTA: Espera, recibirás una notificación
cuando el archivo haya sido subido</font><font size="2">.<br>
<br>
</font></td>
</tr>
</table>


<% 'Código ASP

Case 2
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0

'Get binary data from form
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)

'convery the binary data to a string
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)

if LenBinary > 0 Then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End if


'Creates a raw data file for with all data sent
'Uncomment for debuging.
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.OpenTextFile(server.mappath(".") & "\raw.txt", ForWriting, True)
'f.Write strDataWhole
'set f = nothing
'set fso = nothing
'get the boundry indicator

strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1,strBoundry,"boundary=") + 8
strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)

'Get first file boundry positions.
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1

Do While lngCurrentEnd > 0
'Get the data between current boundry and remove it from the whole.
strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin)
strDataWhole = replace(strDataWhole,strData,"")

'Get the full path of the current file.
lngBeginFileName = instr(1,strdata,"filename=") + 10
lngEndFileName = instr(lngBeginFileName,strData,chr(34))
'Make sure they selected at least one fi
' le.
if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then

Response.Write "<H2> Ha ocurrido el siguiente error.</H2>"
Response.Write "Debes elegir un archivo para subir"
Response.Write "<BR><BR>Pulsa el botón volver, realiza la corrección."
Response.Write "<BR><BR><INPUT type='button' onclick='history.go(-1)' value='<< Volver' id='button'1 name='button'1>"
Response.End
End if

'There could be one or more empty file boxes.

if lngBeginFileName <> lngEndFileName Then
strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName)

'Creates a raw data file with data between current boundrys. Uncomment for debuging.
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.OpenTextFile(server.mappath(".") & "\raw_" & lngNumberUploaded & ".txt", ForWriting, True)
'f.Write strData
'set f = nothing
'set fso = nothing

'Loose the path information and keep just the file name.
tmpLng = instr(1,strFilename,"\")
Do While tmpLng > 0
PrevPos = tmpLng
tmpLng = instr(PrevPos + 1,strFilename,"\")
Loop

FileName = right(strFilename,len(strFileName) - PrevPos)

'Get the begining position of the file data sent.
'if the file type is registered with thebrowser then there will be a Content-Type
lngCT = instr(1,strData,"Content-Type:")

if lngCT > 0 Then
lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4
Else
lngBeginPos = lngEndFileName
End if
'Get the ending position of the file dat
' a sent.
lngEndPos = len(strData)

'Calculate the file size.
lngDataLenth = lngEndPos - lngBeginPos
'Get the file data
strFileData = mid(strData,lngBeginPos,lngDataLenth)

'Create the file.
Set fso = CreateObject("Scripting.FileSystemObject")

'Lo guarda en la carpeta actual
Set f = fso.OpenTextFile(server.mappath(".\") & "/" & FileName, ForWriting, True)
f.Write strFileData
Set f = nothing
Set fso = nothing


lngNumberUploaded = lngNumberUploaded + 1

End if

'Get then next boundry postitions if any.
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
loop


Response.Write "Archivo subido<Br>"
Response.Write lngNumberUploaded & " archivo ya está en el servidor.<BR>"
Response.Write "<BR><BR><INPUT type='button' onclick='document.location=" & chr(34) & "Cargador de archivos.asp" & chr(34) & "' value='<< Volver' id='button'1 name='button'1>"
End Select
%></form>

</body>

</html>

[Morgui]

Gracias Trulala, pero eso ya lo tengo. Lo que necesito es realizar una selección múltiple de los ficheros, en lugar de seleccionar en cada file por separado

[Neuron_376]

Creo que con ese metodo que te pusieron ya lo puedes lograr, es decir, los pasos seria asi:

1. El usuario elige la carpeta --> Submit
2. Ya sabes que carpeta, entonces creas tantos TextBox como archivos existen en esa carpeta con los valores correctos de los archivos.

3. En la pagina que sube los archivos usas el metodo que te pusieron.

Antes el paso 2 no era posible porque dependias del campo File, donde no puedes inicializarlo de ninguna manera, pero ahora que tienes campos TextFile, ya sera posible, cuestión de aprovechar y probar el nuevo método que te pusieron.

Y de paso nos dices si el método funciona correctamente

Suerte!!

[AlZuwaga]

Cuál es, Neurón, el nuevo método que le pusieron?
Tal vez me perdí de algo, pero que yo sepa no la única manera de subir archivos es mediante inputs de tipo "file", no "text".

[Neuron_376]

Segun yo es ese...

Iniciado por Trulala de cordoba

Hola amigo:
Acá te pego el código que deje en un post. Si quieres poder subir de 15 archivos solo debes agregar 15 cajas de texto. Espero te sirva.
Saludos.

Entonces que lo pruebe para ver si sirve, yo no lo he probado ni revisado.



Suerte!!

[u_goldman]

Me parece que Trulala de Cordoba se confundio, su script tiene inputs de tipo file, no text.


<input name="File1" size="30" type="file">

Salu2,

[Neuron_376]

Pues yo tampoco vi eso, entonces... no se puede con ese metodo

Suerte!!

[Trulala de cordoba]

Una pregunta. ¿Hay algun lugar que te permita seleccionar varios archivos como pide el amigo para poder ver como funciona?

[u_goldman]

Personalmente no he visto nada asi...habra alguna manera de agregar dinamicamente campos de tipo file predefinidos?
SI la hubiera, entonces bastaria con agregar las rutas completas de todos los archivos vamos a decir a un textarea y en un formulario intermedio parseas ese textarea y creas tus input file dinamicamente, y envias el formulario mediante javascript...pero por supuesto que este es un GRAN SI.

Esperemos a que venga una mente mas iluminada(AZ, Myak, Neuron, Orharo o Trasgus-en extricto orden alfabetico -) a aclararnos si esto seria posible.

Salu2,

[AlZuwaga]

Iniciado por :borracho: :-D

...y creas tus input file dinamicamente...

Iniciado por Una mente iluminada por un pequeño y verde led

no se puede, por el hecho que el value de un input file es de sólo lectura

Esto se lo vengo diciendo desde aquí, pero al parecer no me cree

[u_goldman]

tanto alcohol me esta afectando la vista

Salu!

[Morgui]

Yo también me perdí con lo de los campos text.

Parece que ahora estoy en buen camino pero haciendolo de otra forma. Si consigo algo lo publicaré por si resulta útil