Run

res=640;
SetDirectory["C:\\drorbn\\Album\\2025.06.01-08_Phu_Quoc_Island"];
fs=FileNames["*.gpx"]
data=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs}],
GeoPosition[{_,None}], ∞
];
map0=GeoGraphics[{Red,data},GeoScaleBar->"Kilometers", ImageSize ->res];
fs1=FileNames["*.gpx", ("../"<>#)&/@{
"2025.06.01_Phu_Quoc_Island_North_Ride",
"2025.06.07_Phu_Quoc_Island_South_Ride"
}]
data1=DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs1}],
GeoPosition[{_,None}], ∞
];
Rasterize[
map=GeoGraphics[{Thick, Blue, data1,Red,data},
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
],
RasterSize ->res
]
Export["PathsInPhuQuoc.png",map];
PathsLocation=Module[{R=3000,r=5,n=6,res=600},
ImageAssemble[
Partition[#,3]&@Table[
Rasterize[
GeoGraphics[{Thick,Blue, data1,Red,data},
GeoCenter->Mean@Cases[data,GeoPosition[l_List]:>Mean[l],∞] ,
GeoRange->Quantity[R(((r/R))^((k-1)/(n-1))),"Kilometers"],
GeoScaleBar->"Kilometers",
ImageSize->res
],
RasterSize->res
],
{k,n}],
"Fit",Background -> White]
]
Export["PathsLocationPhuQuoc.png",PathsLocation]
ResetDirectory[];

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

{}

Export

{
"TitleNotes" -> "",
"ImageComments" ->{->"Enroute: which way does the river flow? Above Bathurst Island, just north of Darwin, Australia.",->"Enroute: Landing at Ho Chi Minh City.",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"Return: Ho Chi Minh City from the air.",->"Return: Ho Chi Minh City from the air.",->"Return: at the Ho Chi Minh City airport.",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"",->"Enroute: the equator!"}
}