Image Directory

folder="C:\\drorbn\\Album\\Equipment\\Marin";
SetDirectory[folder];
If[Head[PensieveDirectives]===List, ImageComments="ImageComments"/.PensieveDirectives,ImageComments={}];
(Interpretation[ImageResize[Import@#,400],#]->(#/.ImageComments/.(#->"")))&/@FileNames["*.jpg"|"*.jpeg"|"*.png"|"*.mp4"]
ResetDirectory[]

Export

PensieveDirectives={
"TitleNotes" -> "Marin, purchased on March 2020, was my regular bike. It was stolen in Stratford on the night after <a href=../../2025.10.25_Stratford_-_Wildwood_Lake_-_St._Marys_Ride/index.html>2025.10.25_Stratford_-_Wildwood_Lake_-_St._Marys_Ride</a>. May its memory be blessed.",
"ImageComments" ->{->"<a href=../../2022.01.01_Kleinburg_to_Georgetown_Return_Ride/index.html>2022.01.01_Kleinburg_to_Georgetown_Return_Ride</a>",->"<a href=../../2024.09.14_Orillia_to_Gravenhurst_Return_Ride/index.html>2024.09.14_Orillia_to_Gravenhurst_Return_Ride</a>",->"Marin's last known photo, <a href=../../2025.10.25_Stratford_-_Wildwood_Lake_-_St._Marys_Ride/index.html>2025.10.25_Stratford_-_Wildwood_Lake_-_St._Marys_Ride</a>"}
}