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

folder="C:\\drorbn\\AcademicPensieve\\Album\\2023.06.05_Ottawa_River_Ride";
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=30,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.06.05_Ottawa_River_Ride";
SetDirectory[folder];
(Interpretation[ImageResize[Import@#,400],#]->"")&/@FileNames["*.jpg"|"*.jpeg"|"*.png"|"*.mp4"]

I had a <a href=http://www.math.toronto.edu/~drorbn/Talks/Ottawa-2306/index.html>conference</a> in Ottawa over the weekend so I had to delay my biking until Monday. On the other hand, I got to do it around Ottawa and to cross over to Quebec to visit there for the first time since before the pandemic. 106km on flat grounds and in perfect biking weather - no sun, no rain, no wind. So at the end I still felt very strong; I could probably easily do another 50km. But instead I drove back to Toronto, a 5-hour drive.

{
"TitleNotes" -> "I had a <a href=http://www.math.toronto.edu/~drorbn/Talks/Ottawa-2306/index.html>conference</a> in Ottawa over the weekend so I had to delay my biking until Monday. On the other hand, I got to do it around Ottawa and to cross over to Quebec to visit there for the first time since before the pandemic. 106km on flat grounds and in perfect biking weather - no sun, no rain, no wind. So at the end I still felt very strong; I could probably easily do another 50km. But instead I drove back to Toronto, a 5-hour drive.",
"ImageComments" ->{}
}