El Archivo especificado no es válido. -2146697210 The system cannot locate the object

[Sugey]

Hola, tengo un error horrible, no entiendo que pasa, hace unos dias tenia el problema para subir archivos, pero se solucion cuando encontre un codigo xelupload, asi ke ahora subo el archivo, y lo mando como parametro a un funcion que lo parsea, es un archivo xml y su informacion se almacena en la base de datos.

pero me manda un error:
El Archivo especificado no es válido. -2146697210 The system cannot locate the object specified.

No se que pasa


sub ParsearXML(XMLFuente,rutaXML)


Set xmlSESI=Server.CreateObject("Microsoft.XMLDOM")
xmlSESI.async=false
'xmlSESI.load(xmlHttpSESI.responseXML)
xmlSESI.load(XMLFuente)


' Se Crea el archivo de bitacora
Set fso = CreateObject("Scripting.FileSystemObject")
' Determinamos la ruta donde se alojará la bitácora
rutaBitacora = Server.MapPath("bitacoras")
nombreArchivoBitacora = "Importacion " & day(now) & "-" & monthName(month(now),true) & "-" & year(now) & " " & hour(time) & "-" & Minute(time) & "-" & Second(time)& ".txt"
Set Bitacora = fso.CreateTextFile(rutaBitacora & "\" & nombreArchivoBitacora, True)

Bitacora.WriteLine("****************************** ********************************")
Bitacora.WriteLine(" Ejecutado por:"& session("nombre_usuario") & "/ " & session("uid_usu") & "")
Bitacora.WriteLine(" Origen XML:"& rutaXML & "")
Bitacora.WriteLine("****************************** ********************************")
Bitacora.WriteBlankLines 2



if xmlSESI.parseError.errorcode<>0 then
'Manejo de errores
'response.write("Error "& xmlSESI.parseError.errorcode & " " & xmlSESI.parseError.reason & "</br></br>")
MostrarError "El Archivo especificado no es válido. "& xmlSESI.parseError.errorcode& " " & xmlSESI.parseError.reason
Bitacora.WriteLine("ERROR: El archivo XML especificado tiene errores, " & xmlSESI.parseError.reason)
else

' si logro parsear el archivo entra aqui
banderaGerencia = false
banderaContinuar = true
contadorOrdenenesRegistradasConExito = 0
contadorOrdenenesRegistradasSinExito = 0

*************************

ahora la manera de subir el archivo es esta:

Dim Up, fich

' Se abre la conexion a la BD
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Conn_String


' Se crea el objeto aspSmartUpload
set up = new xelUpload
up.Upload()
set fich = up.Ficheros("archivo")

if up.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
else
Response.Write("¡ya se subio")
end if


if fich.Nombre <> "" then
rutaDocumento = Server.MapPath("documentos_xml")
nombreArchivoXMLDestino="Importacion" & day(now) & "-" & monthName(month(now),true) & "-" & year(now) & "_" & hour(time) & "-" & Minute(time) & "-" & Second(time)& ".xml"
on error resume next
fich.GuardarComo nombreArchivoXMLDestino, rutaDocumento
End if

if err.number <>0 then
MostrarError "No se pudo cargar el archivo, verfique su archivo"
'response.write("No se pudo cargar el archivo, verfique su archivo")
' end if
Else
ParsearXML nombreArchivoXMLDestino, nombreArchivoXMLDestino
End if
El archivo si se sube, por eso mando imprimir la etiketa "ya subio"
ademas realmente estoy subiendo un .xml y ya lo revise y esta bien.

tengo otra pagina que sube archivos con una dll, y manda llamar la misma funcion, de parsearxml. Y lo hace correcto.

Que puede estar pasando, ayudaaaaaaaaaaaaaaaaaa

[Sugey]

Hola compañeros, solo para informarles que ya encontre el error, estaba pasando mal los parametros, a la funcion que parsea, y por eso no podia encontrar el archivo xml.

Pero ahora tengo otro problemilla...
No puedo cargar el archivo al servidor, este programa lo pruebo en un servidor win 2000 y funciona, y cuando lo pruebo en win 2003 ya no funciona.

Dim up, fich
set up = new xelUpload
up.Upload()

Response.Write("Número de ficheros subidos: " & up.Ficheros.Count & "<br>")
Response.Flush
For each fich in up.Ficheros.Items
Response.Write("<ul>")
Response.Write("<li>Nombre: <b>" & fich.Nombre & "</b></li>")
Response.Write("<li>Tamaño: <b>" & fich.Tamano & "</b> bytes (" & FormatNumber(fich.Tamano / (1024*1024)) & " Mb)</li>")
Response.Write("<li>Tipo MIME: <b>" & fich.TipoContenido & "</b></li>")
Response.Write("</ul>")

'Para guardarlo
' Con el nombre de fichero original:
on error resume next
fich.Guardar Server.MapPath("sugey")

if err.number <>0 then
response.Write("error al intertar guardar")
'response.write("No se pudo cargar el archivo, verfique su archivo")
Else
response.Write("se subio y se guardo")
response.Write(Server.MapPath("sugey"))
End if
' Con otro nombre:
' fich.GuardarComo nombrefichero, Server.MapPath("rutavirtual")
'----------------------------------------------------------------
Next

'Limpiamos objeto
set up = nothing


Me manda el mensaje "error al intertar guardar", y realmente no lo guarda, ni si kiera lo sube.

Ese directorio "sugey" me asegure de que exista, le di permisos, y ya no se que mas hacer, que estar pasando, porq no puede cargar los archivos???

AYUDAAAAAAAAAAAAAAAAAA