Clever-Excel-Forum

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

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

Hallo Anton,

vielen, vielen Dank !!!

Das passt perfekt.

Gruß Frank

FrankyHB

EA1950

FrankyHB