Image Directory

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

Export

{
"TitleNotes" -> "",
"ImageComments" ->{->"Dror, Ravi, Jeremy, Peter, Martin"}
}