Dateien per VBA kopieren "FileSystemObject" ?

ich benutze dieses Makro um Datein umzubennenen:

Sub rename()
'
'die Dateien im markierten Zellenbereich werden umbennant
'
gesZeilen = Selection.Rows.Count
For i = 1 To gesZeilen
oldName = Selection.Cells(i, 1).Value
newName = Selection.Cells(i, 2).Value
Name (oldName) As (newName)
Next i
End Sub

ich brauche jetzt so ein Makro fürs Kopieren (FileSystemObject)

Wer kann mir dabei helfen???

Danke vorab...

Gruß
Dino