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

SetDirectory["C:\\drorbn\\Album\\2023.08.20-09.17_Around_Waseda_University"];
Short[fs=FileNames["*.gpx",{"..\\2023.06.18_From_Tsuda_to_the_Imperial_Palace_Return_Ride","../2023.08*","../2023.09*"}]]
Short[data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
]]
res=1000;
Rasterize[map=GeoGraphics[{Red,data},
GeoCenter->{35.705108806851925,139.72207575635727},
GeoRange->Quantity[3,"Kilometers"],
GeoScaleBar->"Kilometers", ImageSize ->res
], RasterSize ->res]
Export["PathsNearWasedaUniversity@.png",map];
ResetDirectory[]

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