fso.createfolder (errore)

[agenti]

<%
Dim percorso
percorso="file/dati_" & date()
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(Server.MapPath(" "&percorso&" ")) then

response.write "dir_ok"
else

'creo la directory con data di oggi

Dim fso,g,data_oggi

response.write percorso
response.end

Set fso = CreateObject("Scripting.FileSystemObject")
Set g = fso.CreateFolder(Server.MapPath(" "&percorso&" "))

response.write "dir creata"
end if
response.end
%>

errore:

Impossibile trovare il percorso
/upload_include.asp, line 17