FileSystemObjectのCopyFolderメソッドでプロシージャの呼び出し、または引数が不正です。

Question

前提・実現したいこと

VBAで、指定のフォルダ配下を新規フォルダとしてバックアップしたい。
FileSystemObjectのCopyFolderメソッドを使って試みています。

発生している問題・エラーメッセージ

実行時エラー：5
プロシージャの呼出し、または引数が不正です。

該当のソースコード

'バックアップ作成（フォルダ）
Sub BackUp_Folder()

    'On Error GoTo Catch

    Dim FolderName
    FolderName = Now()
    
    'バックアップ後のフォルダ名を作成
    FolderName = Format(FolderName, "yyyymmddhhmm")
    
    'バックアップ元とバックアップ後のフォルダパスを設定します
    Dim Moto, Saki As String
    Moto = ThisWorkbook.Path 'バックアップ元のフォルダパス
    Saki = ThisWorkbook.Path & "\" & FolderName 'バックアップ後のフォルダパス
    Debug.Print Moto
    Debug.Print Saki
    
    '参照設定
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO Is Nothing Then
        Debug.Print ("DLL が存在しません")
        Exit Sub
    End If
    
    'フォルダをコピーします
    'Moto・・・バックアップ元フォルダ名（"C:\○○○\○○○"）
    'Saki・・・バックアップ先フォルダ名（"C:\○○○\○○○"）
    'False・・・上書き禁止（True：上書き許可）
    Debug.Print "コピー開始"
    FSO.CopyFolder Moto, Saki, False
    Debug.Print "コピー終了"
    Set FSO = Nothing
    
'Catch:
    ' エラー処理
 '   Debug.Print ("エラー")
 '   Set FSO = Nothing

End Sub

試したこと

１，公式ドキュメント↓を見てみましたが、引数に問題があるとは思えませんでした。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/copyfolder-method

２、他サイト（例えば下記）も見てみましたが、書き方に相違があるとは思えませんでした。
https://www.tipsfound.com/vba/18019

３、フォルダ名の財政を「zaisei」にしてみても変わりありませんでした。

４、Call FSO.CopyFolder(Moto, Saki, False)
にしてみましたが、変わりありませんでした。

５， Call FSO.CopyFolder(Moto, Saki)
にしてみましたが、変わりありませんでした。

６， FSO.CopyFolder Moto, Saki
にしてみましたが、変わりありませんでした。

※参照設定を使う手もありますが、他の人のPCでも設定なしで即実行できるようにしたいため、敢えて使いたくありません。

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

コンソールの出力
C:\Users\ユーザー\Documents\財政\2021
C:\Users\ユーザー\Documents\財政\2021\202108142051
コピー開始

よろしくお願い致します。

Answer 1

コピー先がコピー元のサブフォルダーになる形のフォルダーコピーはできないかと思います。
バックアップ先のフォルダーを、C:\Users\ユーザー\Documents\財政\2021 以下ではない場所にして試してみてください。

Comments

[circular2016]

ありがとうございます。
その通りでした！！

ベストアンサーですが、申し訳ありませんが、具体的な修正策を提示頂いたjinojiさんにさせて頂きました<(_ _)>

[segavvy]

いえいえ、解決できてよかったです！

Answer 2

バックアップ先を変えたらどうでしょうか。

Saki = ThisWorkbook.Path & "..\" & FolderName

Comments

[circular2016]

ありがとうございます。
その通りでした！！