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

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

While waiting for car maintenance; about 11.4km.

{
"TitleNotes" -> "While waiting for car maintenance; about 11.4km.",
"ImageComments" ->{}
}