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

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

{
"TitleNotes" -> "",
"ImageComments" ->{{->"Apollonia",->"At my isolation home",->"My isolation home",->"At my isolation home",->"At my isolation home",->"My isolation home",->"Gan HaAliya HaShniya, Giv'atayim",->"The Astronomical Observatory, Giv'atayim",->"Gan HaAliya HaShniya, Giv'atayim",->"Gan HaAliya HaShniya, Giv'atayim",->"Gan HaAliya HaShniya, Giv'atayim",->"Gan HaAliya HaShniya, Giv'atayim",->"Giv'atayim",->"Shalom Observation Point, Giv'atayim",->"Giv'atayim",->"Weizmann St., Giv'atayim",->"Giv'atayim", ->"Tel Aviv",->"At the Israel Aquarium, Jerusalem",->"At the Israel Aquarium, Jerusalem",->"At the Israel Aquarium, Jerusalem",->"Apollonia",->"Apollonia",->"Apollonia",->"Apollonia",->"Apollonia",->"Apollonia",->"Apollonia",->"Apollonia",->"Apollonia, towards Netanya",->"Apollonia, towards Netanya",->"Apollonia, towards Netanya"}}
}