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