error 800a0046 con xelupload
Hola, estoy haciendo un upload en asp con xelupload y me da el error que he puesto en el título del mensaje. Ahí va el código:
Public Sub Guardar(ruta)
Dim oFSO, oFich
Dim i
if ruta = "" or Nombre = "" 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 & Nombre, true)<--en esta línea 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
Public Sub Guardar(ruta)
Dim oFSO, oFich
Dim i
if ruta = "" or Nombre = "" 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 & Nombre, true)<--en esta línea 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
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.