Length[DeleteFile/@FileNames["index.html","C:\\drorbn\\AcademicPensieve\\Album",2]]

res=600;SetDirectory["C:\\drorbn\\AcademicPensieve\\Album\\2023.11.15-11.30_Budapest"];
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", {"../2023.11.18_Budapest_to_Dunafoldvar_Ride", "../2023.11.25_Esztergom_to_Budapest_Ride"}]
data=data⋃DeleteCases[
Union@Table["Geometry"/.Import[f,"Data"],{f,fs1}],
GeoPosition[{_,None}], ∞
];
Rasterize[
map=GeoGraphics[{Red,data},
GeoScaleBar->"Kilometers",
ImageSize ->res,
GeoRange->(GeoRange/.Options[map0])
],
RasterSize ->res
]
Export["PathsInBudapest@.png",map];
ResetDirectory[]

{
"TitleNotes" -> "",
"ImageComments" ->{}
}