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

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

51.7km: I decided to scout along the Credit River in preparation for a future paddle. How deep is the water? How white? How fast? How accessible? So I biked along it, trying to keep as close as possible and to take pictures of anything significant. Conclusions: navigable, though I won’t stay dry. In several places I’ll have to get out and pull my kayak, and one place has some tipping danger, though no real drowning danger. I should start at Eglinton and head downstream. <a href=../2021.10.02_Credit_River_Paddle/index.html>Done on October 2!</a>

{
"TitleNotes" -> "51.7km: I decided to scout along the Credit River in preparation for a future paddle. How deep is the water? How white? How fast? How accessible? So I biked along it, trying to keep as close as possible and to take pictures of anything significant. Conclusions: navigable, though I won't stay dry. In several places I'll have to get out and pull my kayak, and one place has some tipping danger, though no real drowning danger. I should start at Eglinton and head downstream. <a href=../2021.10.02_Credit_River_Paddle/index.html>Done on October 2!</a>",
"ImageComments" ->{}
}