Excel VBA: Dateien kopieren und an anderem Ort ablegen

[MSCom]

Hallo,

mit folgendem Makro kopiere ich selektiv div. einzelne Dateien von einem Ort zu einem anderen:


Sub KopierenUndUmbenennen2()
Dim FSO As Object
Dim varData As Variant
Dim LRow As Long, i As Long
Dim strOld As String, strNew As String

Set FSO = CreateObject("Scripting.filesystemobject")
LRow = Cells(Rows.Count, 1).End(xlUp).Row
varData = Range("A3" & LRow)
For i = LBound(varData) To UBound(varData)
strOld = IIf(Right(varData(i, 1), 1) "\", varData(i, 1) & _
"\", varData(i, 1)) & varData(i, 2)
strNew = IIf(Right(varData(i, 3), 1) "\", varData(i, 3) & _
"\", varData(i, 3)) & varData(i, 4)
FSO.copyFile strOld, strNew
Next
MsgBox "Kopieren beendet!"
End Sub

Hat einwandfrei funktioniert. Ich hatte es nun länger nicht genutzt und zwischenzeitlich auf Office 2019 upgedatet. Ohne dass ich etwas geändert habe, funktioniert es nun icht mehr und das Makro bleibt bei

FSO.copyFile strOld, strNew

Hat jemand eine Idee, woran das liegen könnte?

Danke & viele Grüße

Stefan