VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい

ＡフォルダとＢフォルダがあります。
Ａフォルダの中には複数のフォルダがあります。
このフォルダの中にあるフォルダの名称に「あい」を含むフォルダがあればＢフォルダにコピーするコードを教えて下さい。

「あいうえお」･･･Ｂフォルダにコピーする
「かきあいこ」･･･Ｂフォルダにコピーする
「あかさたなあい」･･･Ｂフォルダにコピーする
「くけこ」･･･Ｂフォルダにコピーしない
「あかかかかい」･･･Ｂフォルダにコピーしない

よろしくご教授願います。

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/11/04 23:56

こんばんは。

下記が参考になるでしょうか？

VBA フォルダのコピー
https://www.tipsfound.com/vba/18019

試していませんが、下記の様な感じでしょうか？
パスは、適宜修正してみて下さい。

Call fso.CopyFolder("C:\*あい*", "コピー先", True)

この回答へのお礼

ご紹介いただいたＨＰとアドバイスを合わせて下記のコードを作成したら上手くゆきました。ありがとう御座いました。

Private Sub CommandButton1_Click()
'フォルダ名に「あい」を含むフォルダをコピーする
Dim fso As FileSystemObject
Set fso = New FileSystemObject

Call fso.CopyFolder("Aフォルダのパス\*あい*", "Bフォルダのパス\", True)

' 後始末
Set fso = Nothing

End Sub

お礼日時：2021/11/06 20:55