folder="C:\\drorbn\\AcademicPensieve\\Album\\2022.09.02_Afternoon_Hike_Near_Les_Diablerets";
SetDirectory[folder];
fs=Echo@FileNames["*.gpx"];
data=Union@Table["Geometry"/.Import[f,"Data"],{f,fs}];
path=Echo@GeoGraphics[{Red,data},
GeoGridRangePadding->0,
GeoScaleBar->"Kilometers"
];
(*Export["path.png",path]*)
PathLocation=Module[{R=3000,r=4,n=6,res=600},
ImageAssemble[
Partition[#,3]&@Table[
Rasterize[
GeoGraphics[{Red,Thick,data},
GeoCenter->Mean@Cases[data,GeoPosition[l_List]:>Mean[l],∞] ,
GeoRange->Quantity[R(((r/R))^((k-1)/(n-1))),"Kilometers"],
GeoScaleBar->"Kilometers",
ImageSize->res
],
RasterSize->res
],
{k,n}],
"Fit",Background -> White]
]
Export["PathLocation.png",PathLocation]

{
"TitleNotes" -> "I had a free afternoon after my talk. 12km, 900m elevation gain (and loss), and a thunderstorm in the middle that had me pause for half an hour to take shelter beside a mountain hut that was unfortunately closed.",
"ImageComments" -> {
  "P1190126.JPG" -> "Shelter"
}
}