ResYol = PathDir & "Haber\" bunlarada aynı sekilde uygulayabilirmisin map olayını