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

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

{
"TitleNotes" -> "Counter clockwise around Lake Geneva, with a night stopover in Lausanne. Day 1 about 107km, day 2 about 66km (and then a shower at the airport and an evening flight to Sydney).",
"ImageComments" ->{->"",->"Geneva",->"",->"",->"Geneva",->"Geneva",->"Geneva",->"Geneva",->"",->"The Mont Blanc",->"",->"Crossing into France",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"A redwood!",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"Left: Switzerland. Right: France.",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"Chillon Castle",->"Chillon Castle",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"Lausanne",->"Lausanne",->"Lausanne",->"Lausanne",->"Lausanne",->"Lausanne",->"Lausanne",->"Lausanne",->"Lausanne",->"From Lausanne",->"Lausanne",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->""}
}