Datei speichen - von links nach rechts

Sub Datei_vorhanden()
'   von Berti Koern
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
'   Egänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
FileCopy "D:\Eigene Dateien\Hajo\Adresse.xls", _
"P:\Eigene Dateien\Hajo\Adresse.xls"
End If
End Sub

Eigentlich hatte ich vor, die Datei in das 2. Verzeichnis nur kopieren zu lassen, wenn die Datei unter diesem Namen noch nicht existiert. Sollte die Datai also schon da sein, soll nichts passieren. So wie der Code geschrieben ist, wird die Datei allerdings ersetzt.
Könnt Ihr mir hier helfen?
Danke.
Viele Grüße
Marco