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

下記のマクロを設定しております。
マクロを実行するとダイアログが表示されて、選択したフォルダ内に
「検査時必要図書（正本）」がコピー出来るように設定しておりますが。
マクロを実行しても、指定フォルダがコピーされません。
この問題の解決方法を教えてください。
よろしくお願いいたします。

マクロ
Sub フォルダコピー()
Dim Dst As Variant
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
Dst = .SelectedItems(1)
End With

Dim FSO As Object
Dim Adr As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Adr = ThisWorkbook.Path


FSO.CopyFolder Adr & "\検査時必要図書（正本）", Dst

End Sub

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2023/10/19 16:22

Dst = .SelectedItems(1) & "\"

または
FSO.CopyFolder Adr & "\検査時必要図書（正本）", Dst & "\"

この回答へのお礼

回答ありがとうございます。
早速試してみます。

お礼日時：2023/10/19 16:27