¿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