Como hacer una copia de la base de datos, desde un botón

Tengo definida esta rutina, pero al ejecutar me da un error que dice "error de compilación, no se ha definido el tipo definido por el usuario"

Sub Comando6_Click()
Dim fso As Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
rutaOrigen = "D:\GAVTECH 2018\sistemas\repartos\"
rutadestino = "D:\GAVTECH 2018\sistemas\repartos\respaldos\"
Set fso = New FileSystemObject ' aqui creo la instancia
'Copio el directorio entero incluyendo sus archivos
fso.CopyFolder rutaOrigen, rutadestino
'finalmente Elimino el objeto
Set fso = Nothing
MsgBox "Archivos movidos correctamente", vbInformation, "OK"
End Sub