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

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

The forecast for the weekend was lousy, and I had no solid obligations on Friday. So I went out a day earlier than my usual, and promised myself that I’ll work on Saturday.
<p>Anyway, I bought a wetsuit and now I can paddle in cold water! The web says lake Ontario is about 5 degrees today, so the wetsuit was probably a good idea. But I didn’t fall in the water, so I didn’t get to test it.
<p>I also have a new folding bike! So I folded it and carried it on the kayak, for the return trip. It was lovely! But I didn’t take many pictures because the wind was strong and the water choppy. Perhaps the choppiest I’ve ever paddled in.
<p>A little over 14km of paddling (I had a tracking malfunction, so I don’t know the exact number), plus 17.3km return by bike.

{
"TitleNotes" -> "The forecast for the weekend was lousy, and I had no solid obligations on Friday. So I went out a day earlier than my usual, and promised myself that I'll work on Saturday.
<p>Anyway, I bought a wetsuit and now I can paddle in cold water! The web says lake Ontario is about 5 degrees today, so the wetsuit was probably a good idea. But I didn't fall in the water, so I didn't get to test it.
<p>I also have a new folding bike! So I folded it and carried it on the kayak, for the return trip. It was lovely! But I didn't take many pictures because the wind was strong and the water choppy. Perhaps the choppiest I've ever paddled in.
<p>A little over 14km of paddling (I had a tracking malfunction, so I don't know the exact number), plus 17.3km return by bike.",
"ImageComments" ->{}
}