Copy a file if it exists

Sub CopyFile()

Dim fso
Dim file As String, sfol As String, dfol As String

file = "test.xls" ' change to match the file name
sfol = "C:\" ' change to match the source folder path
dfol = "E:\" ' change to match the destination folder path

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(sfol & file) Then

MsgBox sfol & file & " does not exist!", vbExclamation, "Source File Missing"

ElseIf Not fso.FileExists(dfol & file) Then

fso.CopyFile (sfol & file), dfol, True

Else

MsgBox dfol & file & " already exists!", vbExclamation, "Destination File Exists"

End If

End Su