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

folder="C:\\drorbn\\AcademicPensieve\\Album\\2023.09.16_Waseda_to_Choshi_Ride";
SetDirectory[folder];
fs=Echo@Take[FileNames["*.gpx"],All];
data=Union@Table["Geometry"/.Import[f,"Data"],{f,fs}];
path=Echo@GeoGraphics[{Red,data},
GeoGridRangePadding->Scaled[0.1],
GeoScaleBar->"Kilometers"
];
Export["path.png",path]
PathLocation=Module[{R=3000,r=80,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]

folder="C:\\drorbn\\AcademicPensieve\\Album\\2023.09.16_Waseda_to_Choshi_Ride";
SetDirectory[folder];
(Interpretation[ImageResize[Import@#,400],#]->"")&/@FileNames["*.jpg"|"*.jpeg"|"*.png"|"*.mp4"]

About 145km. After two weeks of inactivity and covid and covid-induced-inactivity, I wasn’t at all sure I’d be able to complete this ride. But it went fine! The main challenges were the heat (does it ever end?), the fact that for a random reason I didn’t sleep well on the night before (so I was sleep-tired more than muscle-tired), and the stupidity that I forgot to put sunscreen on a little patch on my neck.

{
"TitleNotes" -> "About 145km. After two weeks of inactivity and covid and covid-induced-inactivity, I wasn't at all sure I'd be able to complete this ride. But it went fine! The main challenges were the heat (does it ever end?), the fact that for a random reason I didn't sleep well on the night before (so I was sleep-tired more than muscle-tired), and the stupidity that I forgot to put sunscreen on a little patch on my neck.",
"ImageComments" ->{}
}