No se que le puede pasar a este upload

[eeeee]

Hola, estoy subiendo fotos al directorio uploaded según muestra estas linea:

Dim patToFile
pathToFile = Server.mapPath("uploaded/") & "\" & fileName
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)

y funciona correctamente, entoces quiero ponerlo de forma que se guarde segun lo recogido en un form y lo pongo así:

Dim patToFile
pathToFile = Server.mapPath("/portad/" & tipoInput & "/" & letra & "/") & "\" & fileName
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)

Quiero que se guarde en portad/tipoinput/letra/nombredearchivo.
Las variables ya las tengo recogidas en tipoinput , letra y en filename, pero me da este error:

Microsoft VBScript runtime error '800a0046' permiso denegado

y no es por permisos de carpeta, es algo que hice mal en esas lineas, pero no me aclaro.
he probado poniendo la ruta a mano y obtengo el mismo error, pero con las primeras lineas va bien.
Este es el codigo de la funcion saveToFile:

Public Function saveToFile(name, path)
If dict.Exists(name) Then
Dim temp
temp = dict(name).Item("Value")
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim file
Set file = fso.CreateTextFile(path)
For tPoint = 1 to LenB(temp)
file.Write Chr(AscB(MidB(temp,tPoint,1)))
Next
file.Close
saveToFile = True
Else
saveToFile = False
End If
End Function

Podrían ayudarme?
Gracias