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 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

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.