Visual Basic para Aplicaciones - Para los que tienen problemas con el FileCopy

Si eres de los programadores que, para copiar un archivo o crear un backup de tu sistema, usando Filecopy origen,destino y te sale: "Error 70. Permiso denegado"... he aqui la solucion:

Esto va en el boton de "Copiar" o "Crear backup"

On error goto NoCopia
'El origen de tu base de datos, es inamobible:

origen = App.Path & "\Bd\bd.mdb"

'En mi caso, tengo mi base de datos en la carpeta "Bd" y mi base de datos se llama "bd.mdb".

'Ahora el destino

destino="C:\backup.mdb"

'Esta ruta la puedes cambiar poniendo un DirListBox y un DriveListBox, eso lo dejo a tu imaginacion

'Ahora como copiar el archivo

Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile origen, destino
MsgBox "La copia se realizó con exito", vbInformation, "Copia realizada"

exit sub

NoCopia:
If Err.Number > 0 Then
MsgBox Err.Number & " " & Err.Description, , "Error al copiar archivo"
Screen.MousePointer = vbDefault

Err.Clear
Exit Sub
End If

Ojala les haya servido, a mi si.
Saludos

No puedo hacer funcionar el código, podrías revisarlo copiando este y tratandolo de ejecutar?
Saludos