Sub 複数のファイルをコピー()
'Dドライブのabcフォルダにある全てのcsvファイルを
'Dドライブのxyzフォルダにコピーする
Dim cop As Object
Set cop = CreateObject("Scripting.FileSystemObject")
cop.CopyFile "\D:\abc\*.csv", "D:\xyz\"
Set cop = Nothing
End Sub