mit Schleife Dateien aus einem Verzeichnis umbenennen

[FrankyHB]

Hallo,
ich habe folgendes Problem:

ich möchte alle Dateinen aus dem Verzeichnis

C:\DE\Bremen\Garden\Front Office\Rechnungen\Ausgewählt\
umbenennen

im Verzeichnis stehen die Dateien wie folgt:

Frank.pdf
Ludmila.pdf
Markus.pdf
etc.

Ich möchte das diese Dateien folgendermaßen umbenennen:

Firma Meier GmbH - Frank.pdf
Firma Meier GmbH - Ludmila.pdf
Firma Meier GmbH - Markus.pdf

wie kann ich das in einer Schleife erreichen?

Wäre toll wenn jemand eine Idee hätte.

Liebe Grüße Frank

[EA1950]

Hallo,

folgendes Makro in ein allgemeines Codemodul kopieren
und mit Tastenkombination Alt+F8 auswählen:

Code:

Option Explicit

Sub Dateinamen_Umbenennen()
  Dim Pfad As String, DateiVon As String, DateiNach As String
  Dim DateiMod As String
 
  Pfad = "C:\DE\Bremen\Garden\Front Office\Rechnungen\Ausgewählt\"
  DateiMod = "Firma Meier GmbH - "
 
  DateiVon = Dir(Pfad & "*.pdf")
  Do While Len(DateiVon)
     DateiNach = DateiMod & DateiVon
     Name Pfad & DateiVon As Pfad & DateiNach
    
     DateiVon = Dir()
     If DateiVon Like DateiMod & "*" Then Exit Do
  Loop
 
End Sub

[FrankyHB]

Hallo Anton,

vielen, vielen Dank !!!

Das passt perfekt.

Gruß Frank