Error al crear carpeta Scripting.FileSystemObject

[Pandora]

Éste es el código:
<%
set FSO = server.createObject("Scripting.FileSystemObject")
if FSO.CreateFolder ("Carpeta") then
response.write "<BR>Bien"
else
response.write "<BR>No creada Carpeta"
end If
%>
Y me sale el siguiente error:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/cg_asp/ficheros/promociones/crearCarpetas.asp, línea 3

Le he dado a todos los usuarios --> Control Total, pero sigue saliendo el error. ¿Tengo que tocar algo en el Servidor? Ayudadme, por favor.

[tammander]

Pues eso es un problema de permisos... En tu panel de control en el Servidor debe haber algo parecido a Administracion de Archivos. Allí tendras que cambiar los permisos (755 creo o 766 o 666, pregunta al administrador del server) para que puedas manipular archivos y directorios en el server desde un script.



Un saludo

[efra]

Tienes que darle permisos de escritura a tu carpeta donde va a escribir el ASP.
El usuario del sistema que debe tener permisos es IUSR_NOMBRE_DEL_EQUIPO.

Esto lo haces en el menu "Seguridad" del explorador de windoz.

[Mickel]

tambien puedes hacer eso desde el INETMGR para esa carpeta en especial dando permisos de lectura y escritura y acceso anonimo

[Pandora]

Tiene permisos de Control total la cuenta de invitado de internet y sigue saliendo el error

[Pandora]

Este es el código que me funciona, la carpeta en donde se crean las subcarpetas tiene control total para la cuenta de Invitado de Internet IUSR_....
<%
text=CrearCarpeta("prueba")
response.write (text)

Function CrearCarpeta(carpeta)
prueba=server.mappath("especial")
prueba=prueba&"\"
fol=prueba+carpeta
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject ")
if not fs.FolderExists(fol) then
set f=fs.CreateFolder(fol)
f_comentario="Se ha creado la carpeta "&carpeta
else
f_comentario="No se ha creado la carpeta "&carpeta
end if
set fs=nothing
set f=nothing

CrearCarpeta= f_comentario
End Function
%>