Image Directory

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

Export

PensieveDirectives={
"TitleNotes" -> "Kona is my fat-tire bike. I bought it on January 2024 to ride on the snow.",
"ImageComments" ->{->"<a href=../../2025.01.12_Niagara_-_St._Catharines_Loop/index.html>2025.01.12_Niagara_-_St._Catharines_Loop</a>",->"<a href=../../2025.03.01_Crystal_Beach_to_the_Wainfleet_Cenotaph/index.html>2025.03.01_Crystal_Beach_to_the_Wainfleet_Cenotaph</a>",->"<a href=../../2025.09.27_On_the_Trans_Canada_Trail_between_Coopers_Falls_and_Gravenhurst/index.html>2025.09.27_On_the_Trans_Canada_Trail_between_Coopers_Falls_and_Gravenhurst</a>"}
}