Access - Copiar PDF de carpeta de origen a destino al pulsar botón

Private Sub UPDATE_Click()

    'Instalar Referencia Microsoft Office xx.x Object Library

    Const RutaPreestablecida = "D:\temp\" 'Poner la que proceda

    Dim Dlg As FileDialog, Doc As String, I As Integer

    Set Dlg = FileDialog(msoFileDialogFilePicker)

    With Dlg

        .Filters.Delete

        .Filters.Add "Documentos de Adobe Acrobat", "*.pdf"

        .FilterIndex = 2

        .AllowMultiSelect = False

        .ButtonName = "Seleccionar"

        .Title = "Seleccionar un archivo"

        If .Show Then

            Doc = .SelectedItems(1)

            I = InStrRev(Doc, "\")

            FileCopy .Doc, RutaPreestablecida & Mid(Doc, I) 'Si no existe la carpeta se producirá un error

        End If

    End With

    Set Dlg = Nothing

End Sub

FileCopy .Doc, RutaPreestablecida & Mid(Doc, I) 'Si no existe la carpeta se producirá un error

FileCopy Doc, RutaPreestablecida & Mid(Doc, I) 'Si no existe la carpeta se producirá un error

Private Sub BotónRutaOrigen_Click()

Dim MiPath As String

'Recoge del módulo los parámetros con la función definida

'como DialogoComun y lo deja en la variable MiPath

'y MiPath se asigna finalmente al campo RutaPDF

    MiPath = DialogoComun(Me, "", "", "")

    If MiPath <> "" Then

        Me.RutaPDF = MiPath

    End If

End Sub

...

            I = InStrRev(MiPath, "\")

            FileCopy MiPath, RutaPreestablecida & Mid(MiPath, I)

...