Mettendo:
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("archiv io/") "&filename)

mi da':

Errore:Costante string senza terminazione

mettendo:
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("archiv io/") &filename)

mi crea un file nella root come ti dicevo prima