エクセルのマクロについて教えてください。

下記のマクロを実行して、指定フォルダをワイルドカードを使用したフォルダ内にコピーを出来るように設定しましたが
画像のようなエラーメッセージが出て
コードの「FSO.CopyFolder Adr & "\検査時必要図書（正本）", Adr & "\########-#_*\"」が黄色くなっており、上手く実行できません。
解決方法を教えてください。
ワイルドカードを"\########-#_*\"」としており
例えばコピー先のフォルダ名が「12345678-5_北海 太郎」です。
よろしくお願いいたします。
マクロ
Sub フォルダコピー正8()
'※※フォルダをコピーする※※

Dim FSO As Object
Dim Adr As String

'FileSystemObjectオブジェクトを作成
Set FSO = CreateObject("Scripting.FileSystemObject")
'コピー対象のフォルダパスを変数に代入
Adr = ThisWorkbook.Path
'「Dataフォルダ」を「Sampleフォルダ」にコピーする
FSO.CopyFolder Adr & "\検査時必要図書（正本）", Adr & "\########-#_*\"

End Sub
です。

No.1 ベストアンサー 回答者： Zincer 回答日時： 2023/10/18 11:13

さすがにコピー先にワイルドカードは使えませんよ！

CopyFolder メソッド
https://learn.microsoft.com/ja-jp/office/vba/lan …

この回答へのお礼

回答ありがとうございます。
理解出来ました。

お礼日時：2023/10/18 11:20