最大1万円超分の電子書籍プレゼント♪

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

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

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

gooドクター

A 回答 (1件)

こんばんは。



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

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

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

Call fso.CopyFolder("C:\*あい*", "コピー先", True)
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング