Alloa utilizzo questo codice per creare una directory:

<% Dim newdir, objFile

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
BlnDir = FileObject.FolderExists(Server.MapPath("/public/friends/"&(customStyle.Fields.Item("M_NAME").Value)))
if blnDir = true then
response.write"La directory è stata già creata"
Set FileObject = Nothing
else
newdir = "/public/friends/"&(customStyle.Fields.Item("M_NAME").Value)
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
objFile.CreateFolder Server.MapPath(newdir)
Response.Write "Directory creata"
Set FileObject = Nothing
end if
%>

e tutto funziona correttamente...

continuo copiando dei file nella directory creata:

<%
'Creazione dell'istanza FSO.
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'Copia un file, se esiste lo sovrascrive (True).
FileObject.CopyFile Server.MapPath("/public/friends/contenuti.asp"), Server.MapPath("/public/friends/"&(customStyle.Fields.Item("M_NAME").Value)), True
%>

Perchè mi da errore di permessi?

Microsoft VBScript runtime error '800a0046'

Permission denied

/utenti/attiva_spazio.asp, line 36