Length[DeleteFile/@FileNames["index.html","C:\\drorbn\\AcademicPensieve\\Album",2]]

SetDirectory["C:\\drorbn\\AcademicPensieve\\Album\\2023.06.17-08.20_Around_Tsuda_University"];
Short[fs=FileNames["*.gpx",{"../2023.06*","../2023.07*","../2023.08*"}]]
Short[data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
]]

res=1000;
Rasterize[map=GeoGraphics[{Red,data},
GeoCenter->{35.72077358956013,139.46693204232898},
GeoRange->Quantity[4.5,"Kilometers"],
GeoScaleBar->"Kilometers", ImageSize ->res
], RasterSize ->res]
Export["PathsNearTsudaUniversity@.png",map];

Directory[]

{
"TitleNotes" -> "Within and around Tsuda University.",
"ImageComments" ->{}
}