PDF nach Werten aus Abfrage umbenennen

[caro_line]

Hallo!
Ich bitte dringend um Hilfe, da ich als Amateur in meinem Code feststecke 
PDF-Dateien sollen von einem Ordner in den anderen verschoben und dann wie folgt umbenannt werden:

Ich habe eine Abfrage mit relevanten Informationen zu den einzelnen PDF-Dateien: Nachname, Vorname und Geburtsdatum der Person, die die jeweilige PDF betrifft; Datum und Dateiname. Die angeführten Dateinamen in der Abfrage entsprechen den aktuellen Dateinamen der PDF-Dateien im Ordner.
Ich hätte nun gerne, dass der Name meiner PDF-Dateien im Ordner durch die Informationen in der Abfrage ersetzt wird.

In meiner Vorstellung muss der Code also den Ordner durchsuchen und immer wenn der Name der PDF-Datei dem angegebenen Dateinamen in der Abfrage entspricht, die Datei auf Nachname-Vorname.pdf umbenennen.

Meine Online Recherchen haben mich bereits durch verschiedene Code-Schnipsel geführt, die mir alle nicht gelungen sind. Hier mein letzter Versuch:

Private Sub Befehl1_Click()
' Datei aus Archiv in Zwischenordner kopieren
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "\\Server01\Programme\Test\" & "*.pdf", "\\Server01\Programme\Test\Zieltest\"

'Datei im Zwischenordner umbenennen
Datei = Dir("\\Server01\Programme\Test\Zieltest\" & Me.[abfrage]![DaMe-Befunde]![Dateiname], vbNormal)
Pfad = "\\Server01\Programme\Test\Zieltest\"
altername = Datei
neuername = Me.[abfrage]![DaMe-Befunde]![Nachname] & ", " & Me.[abfrage]![DaMe-Befunde]![Vorname] & ".pdf"
If Datei <> "" Then
Name Pfad & altername As Pfad & neuername
End If


Das Kopieren der Dateien klappt natürlich. Klassisches Umbenennen mit Name As habe ich auch schon geschafft. Allerdings ist mir nicht klar, wie ich die Variablen aus der Abfrage einfüge und wie ich den Code schreiben muss, dass er alle PDF-Dateien nach dem vorgegebenen Schema mithilfe der Abfrage umbenennt.

Ich würde sehr gerne von euch lernen,

LG Caroline 

[Beaker s.a.]

Hallo Caroline,
Ergänze die Abfrage um ein berechnetes Feld, in dem der neue Dateiname
zusammengesetzt wird.
Im Code öffnest du ein Recordset auf diese Abfrage mit den beiden Feldern
alter- bzw. neuer Dateiname. Mit dem alten suchst du die Datei im Ordner
und kannst sie direkt (ohne Kopiererei) umbenennen.
gruss ekkehard

[caro_line]

Guten Morgen!
Vielen Dank für den - wahrscheinlich eh sehr offensichtlichen - Tipp!
Die von dir vorgeschlagene Variante hat super funktioniert und mein Problem wurde damit behoben. Danke für die schnelle und tolle Hilfe! 
LG Caroline