Hola,
acá te mando como hago la copia de respaldo yo, no uso filecopy, pero uso copy, q te debe servir igual supongo, espero q te sirva, saludos
Dim fs, f, s
Dim pa As String
pa = Dir1.Path
'hacer backup
Set fs = CreateObject("Scripting.FileSystemObject")
If UCase(Dir1.Path + "\") = UCase(gpath) Then
MsgBox "Elija otra carpeta", vbInformation
Exit Sub
End If
Set f = fs.GetFile(gpath + gbase)
f.Copy Dir1.Path + "\" + gbase, True
MsgBox "El bakcup fue realizado con éxito", 48