dir="C:\\drorbn\\Album\\2026.01.23_Le_Sepey_to_Aigle_Hike";
imgs=FileNames["*.jpg",dir]

Import[#,"Exif"]&/@imgs[[{1}]]

Import[#,"Exif"]["GPSLongitude"]&/@imgs[[{1}]]

Lookup[Import[#,"Exif"],{"GPSLatitude","GPSLongitude"}]&/@imgs[[{1}]]

GeoPosition[Lookup[Import[#,"Exif"],{"GPSLatitude","GPSLongitude"}]]&/@imgs

res=800;
fs=FileNames["*.gpx",dir]
data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
];
map0=GeoGraphics[{Red,data},GeoScaleBar->"Kilometers", ImageSize ->res];
AllTracks=Get["C:\\drorbn\\Album/Summaries/AllTracks.m"];

GeoMarker[
GeoPosition@Lookup[Import[#,"Exif"],{"GPSLatitude","GPSLongitude"}]
]& /@ imgs

Rasterize[
map=GeoGraphics[{
GeoMarker[
GeoPosition[{1,1}*Lookup[Import[#,"Exif"],{"GPSLatitude","GPSLongitude"}]], Graphics@Rasterize[Import[#],RasterSize ->res],
"Scale"->0.0075
]& /@ imgs,
Thickness[0.0016], Blue, AllTracks,Thickness[0.0024], Red,data
},
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
],
RasterSize ->res
]

Export["C:\\drorbn\\Album\\Summaries/PathWithImages.png",map]