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

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

With Heather, about 2226km.

{
"TitleNotes" -> "With Heather, about 2226km.",
"ImageComments" ->{->"Sault Ste. Marie",->"Toronto",->"Toronto",->"Kenora",->"Kenora",->"Kenora",->"Kenora",->"Kenora",->"",->"",->"Vermilion Bay",->"Dryden",->"Dryden",->"Dryden",->"",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Thunder Bay",->"Terry Fox Memorial and Lookout",->"Terry Fox Memorial and Lookout",->"Terry Fox Memorial and Lookout",->"Red Rock",->"Red Rock",->"Nipigon",->"Nipigon",->"Nipigon",->"Nipigon",->"Nipigon",->"",->"",->"",->"White River",->"Wawa",->"Wawa",->"Old Woman Bay",->"Old Woman Bay",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Sault Ste. Marie",->"Thessalon",->"Thessalon",->"The Chi-Cheemaun Ferry",->"Birds, from the Chi-Cheemaun Ferry",->"Lighthouse, from the Chi-Cheemaun Ferry"}
}