Office 2016 Dateien mit Hilfe eines Makros umbenennen

[graf_louis]

Hallo zusammen,
ich bitte um eure Hilfe:

Ich möchte gerne unter folgenden Laufwerk Dateien umbenennen

C:\Users\NAME\Desktop\Neuer Ordner

Die Dateien sind mit IMG-20190315-WA0015.jpg benannt, sprich beginnen immer mit IMG- ...

Wie kann ich das IMG- löschen? Es handelt sich um ca. 5000 Dateien.

Die Dateibezeichnung soll also nur noch 20190315-WA0015.jpg lauten

HERZLICHEN DANK IM VORAUS

graf_louis 

[RPP63]

Moin!
Teste mal:

Code: [Auswählen]

Sub Umbenennen()
Dim Ordner$, DatName$
Ordner = Environ("Userprofile") & "\Desktop\neuer Ordner\"
ChDir Ordner
DatName = Dir(Ordner & "img-*")
Do While DatName <> ""
  Name DatName As Replace(DatName, "IMG-", "")
  DatName = Dir()
Loop
End Sub
Gruß Ralf

[graf_louis]

Ein ganz großes DANKESCHÖN !!! 

Das klappt ja super...

Grüße David

PS: Gibt es auch eine Möglichkeit die nun umbenannten Bilddateien per Makro in Ordner automatisiert abzulegen?

Z.B. n Stk. Bilddateien die nun 20190228-WA0001, 20190228-WA0002, ... heißen in den Ordner 20190228_BILDER abzulegen?
Das gleiche müsste natürlich auch für 20190301-WA0001, usw. geschehen. Dann jedoch in den Ordner 20190301_BILDER...

Freue mich auf Ihre Rückmeldung.