Image Directory

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

Export

PensieveDirectives={
"TitleNotes" -> "Marli, a Fury Red Trek Marlin 7 Gen 3 size M purchased in November 2025, is my mountain bike. It replaces poor <a href=../Marin/index.html>Marin</a>.",
"ImageComments" ->
{->"<a href=../../2025.11.16_Bewdley_-_Ganaraska_Forest_-_Pontypool_-_Bethany_-_Millbrook_Loop/index.html>2025.11.16_Bewdley_-_Ganaraska_Forest_-_Pontypool_-_Bethany_-_Millbrook_Loop</a>",
->"<a href=../../2025.11.16_Bewdley_-_Ganaraska_Forest_-_Pontypool_-_Bethany_-_Millbrook_Loop/index.html>2025.11.16_Bewdley_-_Ganaraska_Forest_-_Pontypool_-_Bethany_-_Millbrook_Loop</a>"
}
}