Ver Mensaje Individual
  #3 (permalink)  
Antiguo 27/05/2008, 04:36
Avatar de PosProdukcion
PosProdukcion
 
Fecha de Ingreso: noviembre-2004
Ubicación: Manzanares el Real (Madrid)
Mensajes: 726
Antigüedad: 20 años, 4 meses
Puntos: 9
Respuesta: xelUpload: error en llamada a procedimiento

¿te refieres al código de la clase xelUpload? Ok, ahí te lo pongo...

Por mi parte la llamada se realiza con:

Código:
For each fich in upld.Ficheros.Items
     fich.GuardarComo nombre_fichero, ruta_server
Next
Ninguno de ellos es vacío y la ruta_server está mapeada

Dentro de xelUpload (que es una clase descargada de internet), el código de esa sub es el siguiente:

Código:
Public Sub GuardarComo(nombrefichero, ruta)
Dim oFSO, oFich, i

if ruta = "" or nombrefichero = "" then Exit Sub
if Mid(ruta, Len(ruta)) <> "\" then		'"	
	'añado la ultima barra a la ruta
	ruta = ruta & "\" 						'"
end if

set oFSO = Server.CreateObject("Scripting.FileSystemObject")
if not oFSO.FolderExists(ruta) then Exit Sub
set oFich = oFSO.CreateTextFile(ruta & nombrefichero, true)

for i = 1 to LenB(Datos)
	   oFich.Write Chr(AscB(MidB(Datos, i, 1)))
next 	

oFich.Close
set oFSO = nothing


End Sub
He probado a proteger el oFich.Write Chr(AscB(MidB(Datos, i, 1))) con un If Datos & "" <> "" aunque sigue dando el mismo error, en lugar de subir solo un fichero erróneo de 1kb sube un fichero erróneo de 401 kb, o sea, que por ahí puede andar la cosa, pero no se me ocurre como solucionarlo y por qué antes no me ocurría

Gracias, saludos