Image Directory

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

Export

PensieveDirectives={
"TitleNotes" -> "Bromp is my travel bike, since April 2023. So far I rode it in 16 countries: Australia, Belguim, Bulgaria, Canada, China, France, Germany, Hungary, Israel, Japan, Mexico, the Netherlands, Romania, Slovakia, Switzerland, and the US.",
"ImageComments" ->{->"<a href=../../2025.05.17_Bonn_to_Maastricht_Ride/index.html>2025.05.17_Bonn_to_Maastricht_Ride</a>",
->"<a href=../../2025.06.28_Tuggerah_to_Newcastle_Ride_(2)/index.html>2025.06.28_Tuggerah_to_Newcastle_Ride_(2)</a>"}
}