Pensieve header: The make file for all the summary maps.

SetDirectory["C:\\drorbn\\Album\\Summaries"];

fs=FileNames["../*/*.gpx"]⋃FileNames["../*/*.kml"];
Short[fs=Complement[fs,
Union[
StringReplace[{"@.gpx"->".gpx", "@.kml"->".kml"}]/@Select[fs,StringPart[#,-5]=="@"&],
FileNames["../2024_Greater_Toronto_Stay_in_Place/*.gpx"],
{
"..\\2022.05.08-12_Napoli_and_Around\\Day1Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day2Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day3Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day4Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day5Path.kml",
"..\\2021.07.03_Stratford_-_New_Hamburg_-_Wellesley_Loop\\2021-07-03_06-04_Sat.gpx"
}
]
],5]

Monitor[Short[
Do[
data="Geometry"/.Import[f,"Data"]/.p:GeoPosition[{_,None}]:>Nothing[Print["In ",f," removed ",p,"."]];
path=GeoGraphics[{Red,Thick,data},
GeoGridRangePadding->Scaled[0.1],
GeoScaleBar->"Kilometers"
];
wpath=GeoGraphics[{Red,Thick,data},GeoRange->All];
Export["AllMaps/"<>StringReplace[f, {"..\\"->"", "\\"->"__",".gpx"->".png",".kml"->".png"}],path];
Export["AllMaps/"<>StringReplace[f, {"..\\"->"", "\\"->"__",".gpx"->"_w.png",".kml"->"_w.png"}],wpath],
{f,fs}
]
],f->path];

Verifying

folder="2024.01.26_An_Evening_Walk_in_Downtown_Toronto";
fs=FileNames["../"<>folder<>"/*.gpx"]⋃FileNames["../"<>folder<>"/*.kml"];
Short[fs=Complement[fs,
Union[
StringReplace[{"@.gpx"->".gpx", "@.kml"->".kml"}]/@Select[fs,StringPart[#,-5]=="@"&],
FileNames["../2024_Greater_Toronto_Stay_in_Place/*.gpx"],
{
"..\\2022.05.08-12_Napoli_and_Around\\Day1Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day2Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day3Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day4Path.kml","..\\2022.05.08-12_Napoli_and_Around\\Day5Path.kml",
"..\\2021.07.03_Stratford_-_New_Hamburg_-_Wellesley_Loop\\2021-07-03_06-04_Sat.gpx"
}
]
],5]
Do[
data="Geometry"/.Import[f,"Data"]/.p:GeoPosition[{_,None}]:>Nothing[Print["In ",f," removed ",p,"."]];
Print@GeoGraphics[{Red,Thick,data},
GeoGridRangePadding->Scaled[0.1],
GeoScaleBar->"Kilometers"
];
Print@GeoGraphics[{Red,Thick,data},GeoRange->All],
{f,fs}
]