VBA Access 自身のバックアップ「書き込みできません」

Question

前提・実現したいこと

Access にてバックアップファイルコマンドボタンを作成しています。
Accessを開いている状態でそのボタンを押すと、元ファイルと同じ場所にファイル名に今日の日付が追加された状態のファイルができるようにしたいです。

エラー

実行時エラー70
書き込みできません

該当のソースコード

Sub click()

    Dim strNameMoto As String
    Dim strNameCopy As String
    Dim strPath As String
    Dim intMsg As Integer

    strPath = CurrentProject.Path & "\" 
    strNameMoto = CurrentProject.Name 
    strNameCopy = Left(strNameMoto, Len(strNameMoto) - 6) & "_" & Format(Now, "yymmdd") & ".accdb" 

    With CreateObject("Scripting.FileSystemObject")

        
        If .FileExists(strPath & strNameCopy) Then
            intMsg = MsgBox("上書きしますか?", vbYesNo)
        End If

        
        If intMsg = vbNo Then
            MsgBox "キャンセルしました"
            Exit Sub
        Else
            .CopyFile strPath & strNameMoto, strPath & strNameCopy, True
            MsgBox "バックアップが完了しました"
        End If

    End With

End Sub

試したこと

下記行にエラーの黄色が表示されるが、どこがおかしいのか分かりません。
.CopyFile strPath & strNameMoto, strPath & strNameCopy, True

補足情報（FW/ツールのバージョンなど）

Access2016

Answer 1

私の勉強不足のため解決に至りませんでした。
回答いただいた方、親切に教えて頂きありがとうございました。

VBAのバックアップボタンは断念して、バックアップのフリーソフトで定期的に自動バックアップするようにしました。

Answer 2

こんにちは。

実行中のaccessファイルはコピーできないと思いますが。。。

うず

Comments

[退会済みユーザー]

うず 様　回答ありがとうございます。
実行中はできないのですね…

Answer 3

同じことを手動でやってみてください
フォルダが書き込み禁止になっていたりしませんか？

Comments

[退会済みユーザー]

sazi 様 返信ありがとうございます。

＞＞同じことを手動でやってみてください

（元ファイルはデスクトップに置いて操作しています。）
Accessを閉じてデスクトップにコピペができました。
見当違いなことをしていましたらご指摘下さい…

[Y.H.]

>Accessを閉じてデスクトップにコピペ
Accessを閉じずにデスクトップにコピペ
ではどうなりますか？

[退会済みユーザー]

Y.H. 様　ありがとうございます。
＞Accessを閉じずにデスクトップにコピペ
ですと「使用中の為コピーできません」となります。

CreateObject("Scripting.FileSystemObject")　
を書くことによって、使用中のDBをバックアップすることができるという認識ですが間違ってたら教えて頂きたいです…