error 800a0046 con xelupload

angus
15 de Agosto del 2004
Hola, estoy haciendo un upload en asp con xelupload y me da el error que he puesto en el ttulo del mensaje. Ah va el cdigo:

Public Sub Guardar(ruta)
Dim oFSO, oFich
Dim i

if ruta = "" or Nombre = "" then Exit Sub
if Mid(ruta, Len(ruta)) <> "" then '"
'aado 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 & Nombre, true)<--en esta lnea me da el error

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

oFich.Close
set oFSO = nothing
End Sub

Si alguien sabe pq puede ser...
Gracias

Eduardo Ant?
15 de Agosto del 2004
Es posible que el directorio donde intentas guardar el archivo no tenga permisos suficientes para la escritura, normalmente empresas de hosting habilitan el directorio bd para poder guardar datos, puedes usar este directorio en el que seguramente haya mas permisos.