Bilder kopieren und umbennen

[AndreasRoe]

Hallo Zusammen,



ich möchte per VBA-Makro aus einem Ordner "Fotos1" z.B. 10 Bilddateien in den Ordner "Fotos2" kopieren und diese dann umbenennen.


Im  Ordner "Fotos1" ist die Benennung z. B. so:            DSCN0398.JPG; DSCN0399.JPG; etc.



und im Ordner "Fotos2" sollen diese dann so benannt werden: Standort_XYZ (1).JPG; Standort_XYZ (2).JPG; etc.



neuer Bildname = Standort_XYZ = wird über eine Variable angefragt.



Kann jemand helfen?



Grüße, Andreas





PS: Foto im Anhang zum besseren Verständnis