【VBA】ファイル

'ファイルを一括でコピー
'引数：CopyFileAll(フォルダーパス & "\*.csv", フォルダーパス)
Sub CopyFileAll(argTargetWildFilePath As Variant, argDestFolderPath As Variant)
    
    Dim objFso As New FileSystemObject
    
    With objFso
        'ファイルを一括でコピー
        objFso.CopyFile argTargetWildFilePath, argDestFolderPath
    End With

End Sub