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

così?