フォルダーをコピーする

今回はフォルダーのコピーについてメモしておきます。

FileSystemObjectを使ったフォルダーのコピー

CopyFolderメソッドを使います。
ワイルドカード文字を使用することで、複数フォルダーを指定することもできます。

ワイルドカード文字を使用したサンプルコードです。

実行プログラム

Sub Sample7_3_1()
 
    Dim objFSO   As Object
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
 
    objFSO.CopyFolder "C:\コピー元\Sample7_3*", "C:\コピー先\"
 
End Sub

Sub Sample7_3_1()

Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFolder "C:\コピー元\Sample7_3*", "C:\コピー先\"

End Sub

実行前

実行後

“Sample7_3*”と指定することで、以下のフォルダーはコピーされました。

Sample7_3
Sample7_3(1)
Sample7_3(2)